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EDITORIAL 


La période la plus critique pour les nerfs d’un éditeur de journal est probablement la courte période 
où la maquette est chez l’imprimeur. En effet, c’est souvent à ce moment (et malgré de nombreux 
contrôles durant la mise en pages) qu’il s'aperçoit des multiples erreurs (fôtes d’ortografe, mots 
manquants ou en trop, phrases mal rédigées, erreurs de sélection des polices de caractères, mauvaise 
présentation de certains listings ou tableaux, NDLR non totalement rédigées, comme le mois 
dernier...). Il faut donc se faire violence pour ne pas se ruer chez l’imprimeur pour arrêter les 
machines ! Et il faut reconnaitre que dans le dernier JPC, de nouveaux records ont été atteints. 
Excusez nous donc et espérons que vous trouverez moins d’erreurs dans ce numéro... 


Comme le mois dernier, vous trouverez dans ce journal un programme Basic pour les HP95 et 
HP100. Le problème avec ce genre de programmes est que l’on frôle de très près la limite que nous 
nous sommes fixés : ne parler que des machines de poche. Alors, devons nous seulement passer des 
programmes écrits pour le Swift!Basic, qui est le language destiné à nos palmtops ? Ou passer aussi 
des programmes écrits dans d’autres langages (Gwbasic...) ? Si nous utilisons d’autres languages, les 
applications décrites doivent-elles êtres limitées aux considérations "techniques" des palmtops ou aux 
programmes déstinés à être utilisés "sur le terrain" ? Votre avis est bien sûr le bienvenu. 


Le problème avec la loi de Murphy (vous savez, la fameuse tartine beurée...) est qu’il en existe une 
version spécifique pour les éditeurs de journaux périodiques : C’est systématiquement quelques jours 
seulement avant la date de mise en page du journal que nous recevons les nouvautés. Cette loi s’est 
encore vérifiée ce mois ci avec la réception des Goodies Disks #9. Laissez nous donc un peu de 
temps pour y Jeter un coup d’oeil approfondi, et vous y trouverez une présenttion complète dans le 
prochain numéro. 


Continuons par une mauvaise nouvelle : HPUC (le club Espagnol) nous a informé ce mois ci de son 
intention de stopper la publication de son journal HP Forum. Ceci pour deux raisons principales : 
Tout d’abord, Carles Crespo, son président/fondateur, a décidé d'abandonner définitivement le club, 
suite à de très graves problèmes de santé. Ensuite, malgré qu’il y ait plus de deux cent adhérents, 
seulement quatre personnes semblent être réellement actives et participent réellement au journal. En 
fait, ils sont déjà confrontés aux même problèmes que rencontrent, depuis de longues années, les 
clubs plus anciens. Espérons qu’il reviendront vite sur leur décision, car 1l serait bête d'abandonner 
un travail si bien commencé... 


Pour finir avec une note plus humoristique, vous n’êtes pas sans savoir que notre cher Ministre de la 
Culture et de la Francophonie veut faire voter une loi interdisant l’utilisation de termes étrangers. Si 
le terme palmtop (utilisé deux fois dans cet éditorial) peut être facilement remplacé par Ordinateur de 
Poche devrons nous remplacer Ram par MV (Mémoire Vive) ? Devrons nous aussi traduire nos 
sigles préférés (RPL, PCMCIA) ? Bien entendu, vous pouvez ici aussi nous donner votre avis. Et qui 
sait, Si certains trouvent des équivalences originales où amusantes, nous sommes bien sûr prêts à les 
publier dans un prochain numéro ! 
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CONSEILS AUX AUTEURS 
POTENTIELS 


Je profite du fait que les pages générales sont peu 
occupées ce mois-ci pour répéter quelques petits 
conseils aux personnes désirant écrire des articles : 


- Si vous hésitez quand au choix des articles, n’hésitez 
pas à nous téléphoner. Suivant vos domaines 
d'intérêts, nous pourrons toujours vous aider à en 
trouver un qui peut intéresser d’autres adhérents. 


- Pour les nouveaux adhérents, demandez nous 
d’abord si le sujet que vous voulez aborder n’a pas 
déjà été traité en profondeur quelques mois avant. 
Cela pourrait éviter de vous faire perdre du temps. 


- S1 vous êtes en train de travailler sur un article, 
n’hésitez pas à nous en envoyer une première version. 
Nous pourrons alors vous dire si certaines choses 
doivent être changées ou gagneraient à être 
supprimées. Ou au contraire, nous pourrons peut-être 
vous donner de quelques idées rendant l’article plus 
complet. 


- Si vous venez d'acheter un nouveau produit, 
prévenez nous vite pour nous dire que vous voulez en 
faire une présentation. Cela pourrait éviter que 
plusieurs personnes travaillent sur la même chose en 
même temps ! 


- Au delà de ces questions de fond, pensez à suivre 
scrupuleusement les indications notées sur la 
rubrique Ah, vous écrivez, située dans les pages 
centrales. En effet, très peu de personnes en tiennent 
compte, et nous envoient leurs articles avec les 
paragraphes frappés "au kilomètre", et pire avec des 
tableaux dépassant 50 caractères de largeurs (taille 
d’une colonne de JPC), nous donnant souvent un 
surcroît de travail très apréciable. Suivez aussi les 
directives concerant les formats de fichiers (articles et 
programmes) à envoyer. 


En résumé, n’hésitez pas à faire appel à moi ou aux 
autres membres du bureau. Nous sommes là pour 


vous aider. Et n'oubliez pas que cela peut toujours 
nous donner des idées pour nos propres articles ! 


Jacques Belin (123) 
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INTEGRATION NUMERIQUE 
DANS LE CHAMP COMPLEXE 


Introduction commune HP28 et HP48 


Nos HP28 et HP48 nous permettent de faire des 
intégrations numériques, mais seulement pour des 
fonctions de variables réelles. Il est tout de même 
possible de faire ce type d'intégration dans le champ 
complexe à l’aide de la stratégie : 


Soit F(z) à intégrer de u à v avec: 
-Z variable complexe 

- 4 limite inférieure complexe 

- y limite supérieure complexe 


F(z) sera intégrée successivement pour ses parties 
réelles et complexes. 


Les bornes d'intégration sont rendues réelles par un 
changement de variable. 


Particularités de programmation : 


Pour faire le changement de variable nous opérons en 
mode symbolique. 


Pour ne pas interférer avec d’autres variables la 
nouvelle variable aura un nom peu probable dans ce 
domaine (ici: ””). 


Spécificités HP28 


Le jeu des instructions HP48 dans le domaine des 
expressions algébriques est plus complet que celui des 
HP28. En particulier la fonction MATCH est inconnue 
de ces dernières. Il fallait donc la réinventer ce qui 
rend le programme HP28 nettement plus long que 
celui pour HP48. 


Rappel sur la fonction TMATCH pour ce qui est Juste 
nécessaire 1CI : 


niv.2 niv.l + niv?  niv.l 
symb;” {’symb,. ’symb,..; } + ’symb, 0/1 


Il s’agit donc de remplacer dans lexpression ’symb;’ 


3 des ; | «RE 3 
l'expression SYMD at par SYMD pl - 


Si cela a été possible, il est renvoyé 1 sinon (. 


Pour simuler ceci j'ai utilisé la fonction POS en opérant 
avec les expressions (de la fonction et des variables) 
transformées en chaîne. Il y a sûrement un autre 
moyen plus élégant d’arriver au résultat. 
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Voici donc le programmme pour HP28 


INTGCP 
cksum: #A12Eh 


« SPEED 
4 ROLL —+STR 
è à SUB 
OVER NEG ALOG 
RCLF 
SLR À 


« SCI 36 SF 
OVER - DUP 
Oo * 
ROT + 
+STR 
2 OVER SIZE 1 - SUB 
my + non SYHAP + 
ROT -+STR 
2 OVER SIZE 1 - SUB 
WHILE DUP z POS DUP 
REPEAT DUP2 1 


SAP 1 - SUB 
4 PICK + 
ROT ROT 1 + 
OVER SIZE SUB 
; 
END DROP 
fi SWAP + PU + 
STR- 


SWAP DROP * DUP 


RE 


Dr)r 


ROT IM 


E TOUTE EÉ 


J 


ROT SWAP R-C 
RND 


"IERR' 
RC 


STO 


RND 
T STOF 
» 


x 


D) © ) D & D Ep À D À à D © © ©  & D À À 9 © 0 0 6 Ep © e © E e 0 © 0 À À © © © 6 À © © © © © © © © 


345.5 octets 


pour Le confort 
variable d'intégration: 
algebraic -> chaîne 
précision p -> 1E-p 
état des flags 

chaîne variable -> z 
précision ->r 

état des flags -> f 
modes arrondi et symbol. 
v-u 

(v-u)*(nouvelle var:') 
t(v-u)*"+u! 

transform. en chaîne 

èt suppression des ! 
encadre par "(NM et nm)" 
transforme fonction: 
algebraic -> chaîne 
boucle opérant Le 
changement de variable 
dans La fonction 
(équivalent de La 
fonction HP48 TMATCH)} 
mais traité ici par 
l'intermédiaire de 
chaînes 

encadre par "#1" 

chaîne -> algebraic 
drop sur position, 
fonction * u 

partie réelle de La 
fonction transformée 
F2 

La nouvelle variable, 
Les nouvelles limites 
d'intégration et La 
précision 

intégration de La 
partie réelle (résultat 
numérique et précision) 
partie imaginaire de 
EL AE 

variable et limites 
intégration partie imag 
erreur en complexe 
arrondi suivant 
précision souhaitée 

du majorant de l'erreur 
résultat intégration 

en complexe 

arrondi 

restauration état flags 
ferme environnement des 
variables locales z r f 


Mode d'emploi des programmes HP48 et HP28 


Le 5ème paramètre en italique n’est nécessaire qu'aux 
HP28. Celui-ci sera transformé de N en LE-N. 


En ce qui concerne la précision désirée le principe est 
le même suivant chaque type de machine : 

- Pour HP28, fourniture d’une valeur numérique. 

- Pour HP48, lié au mode d'affichage des valeurs 


numériques. 


Les arguments: 


HP28 HP48 
niveau 5 l'expression de La fonction niveau 4 
niveau à La variable niveau 3 
niveau 3 La limite inférieure niveau à 
niveau 2 La Limite supérieure niveau 1 
niveau 1 la précision désirée 


Les limites peuvent être des réels ou complexes. 


Le nom de la variable indépendante n’aura qu'une 
lettre. 


Résultats: 


Niveau 1: 
Sous forme de complexe, la valeur numérique de 
l’intégrale relative à la précision spécifiée. 


Dans la variable ?IERR”: 

Sous forme de complexe, le majorant de l'erreur 
relative à la précision spécifiée suivant le mode de 
chaque machine. 


Exemples pour HP-28 et HP-48 


Remarque: les résultats sont donnés en supposant le 
mode STD actif avant le lancement du programme et 


restauré après exécution de celui-ci sur la HP-28, 


Pour HP-48 il suffira de les transposer dans le mode 
d'affichage adopté. 


Soit à déterminer la valeur de: 
1 = f F(z)dzentreuet v 


1) FCz) = /z/(z+1) 
pour u = (1,0) ou 1 
&tv = (0,1) ou 1 
avec la précision : HP28 -7 
HP48 7 SCI 


:/2/(2+1/2)! 
17! 

(1,0) ou 1 
(0,1) ou i 
7 (HP28) 


“s s" s" LE 


— M Li + 7 


INTGCP + (-.58578644,.53283998) 
avec IERR = (5.85782110E-8,5.3282270E-8) 


Valeur exacte : /2 - 2 + i*(/2 - LN(1+/2)) 
= (-.58578643763,.532839975352) 


Machine légèrement plus rapide : HP28 !!!! 
2) soit F(z) = 22/(2z - 1) 


à intégrer le long du cercle: x”2 + y? - x = 0 
parcouru dans le sens positif 


Ce cercle coupe l’axe des x en 0 et 1. 
Conseil pratique : 


Comme il est assez fastidieux d’entrer plusieurs fois 
les arguments, opérez de la manière suivante : 

we t2" a 0222-71)" 25 FFT ST 
Il suffira d’activer F pour avoir sur la pile la fonction 
et la variable pour chaque calcul. Si l’un ou les deux 


intervalles étaient fixes on pourrait les ajouter dans le 
programme F. 


Avec la précision de type 5 et un partionnement en 4 
intervalles du chemin, on obtient: 


(0,0) à (0.5,-0.5) + I, = (0.125,-0.0536505) 
(0.5,-0.5) à (1,0) + 1, = (0.375,0.44635) 
(1,0) à (0.5,0,3) + 3 = (-0.375,0.44635) 
(0.5,0.5) à (0,0) 14 = (-0.125,-0.053605) 


1 


d'oùt =1, +1 +1l3+ 14 
I = (0,0.785399) 


valeur exacte: 1 = in/4 = (0,0.785398163398) 


la conversion du résultat de l'intégration donne avec 5 
sc1 l'expression: 


(0,.785399) -Qr ‘’(0,1/4*x)! 
3) solution à certains problèmes de convergence. 
Si des intégrales à variables réelles présentent des 


problèmes de lenteur de convergence, une 
transposition dans le champ complexe peut, dans 


certains cas, résoudre ces problèmes. 
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Soit à intégrer entre les limites: a = 1 et b = « l’une 
ou les fonctions : 


Il, = J cos(x)/Cx+1/x) dx 
1, = f sin(x)/(x+1/x) dx 


En posant 1! = 1, +1; 


on obtient l’intégrale de variable complexe: 

1 = [eZ / (2 + 1/2) dz 

entre les limites: u = 1 et v = 1 + i« 

Sous cette forme, la convergence est rapide, ce qui 
n’est pas le cas de 1, et de 1, pour qui la méthode de 
Romberg est interminable et celle de Gauss donne 
des résultats aberrants. Avec 1 l'intervalle 
d'intégration peut être réduit considérablement par 
suite de la convergence rapide. 

l'expression de F sera donc: 


fEXP(1*2)/(2+1/2)" 


Pour la précision exprimée avec 3 Sci on obtient 
suivant les intervalles d'intégration : 


intervalles I 
1 à (1,10) ( -0.3242 , 0.3824) 
1 à (1,5) ( -0.3246 , 0.3813) 
1 à (1,7) ( -0.3242 , 0.3823) 
1 à (1,8) ( -0.3242 , 0.3824) 
donc: 1 = (-0.3242 , 0.3824) 
I =  -0.3242 
l; = 0.3824 


Remarques: le but de cet article n'aura été que 
d'attirer l'attention sur des possibilités que nous 
offrent nos HP28 et HP48. D'où un exposé 
mathématique manquant de rigueur et de vocabulaire 
au goût du jour. Je laisse aux spécialistes le soin 
d’aller plus loin et avec la rigueur qui s'impose pour 
tout problème de convergence. 


Guy Toublanc (276) 
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MELI-MELO 


Dans la rubrique Trucs et Astuces du JPC 93 et à 
propos du programme pour basculer entre les modes 
symboliques et numériques, j'avais trouvé une 
première méthode pour stocker le programme, puis 
les choses se sont simplifiées mais j'ai mélangé les 
deux méthodes dans l’article. La phrase du haut de la 
colonne de droite est : 


Et stockez le programme assemblé dans la variable 
provisoire "SYMA’. 


Pourquoi faire compliqué quand tout est simple ? 


Guy Toublanc (276) 
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LITTERATURE HP48 


Il ne s’agit pas de nouveautés dans l’absolu mais de 
rééditions remaniées plus ou moins largement. Je les 
signale pour ceux qui pourraient en ignorer plus ou 
moins l'existence. 


The HP 48 Handbook 


Seconde édition 1993 par James Donnelly 
Armstrong Publishing Company (USA) 
ISBN 1-879828-04-9 (341 pages) 


Sous un petit format (12,7 x 18 cm) c’est l'essentiel de 
ce que lon trouve dans les différents manuels des 
HP48. Ce petit livre est très pratique pour retrouver 
rapidement une information. Cette seconde édition a 
subi diverses améliorations qui la rendent plus 
pédagogique et même parfois plus informative que les 
manuels HP. Evidemment certaines parties ne 
peuvent que résumer les manuels. Des exemples de 
programmes bien commentés seront appréciés par 
ceux qui ont des difficultés à programmer et en 
particulier avec les nouvelles instructions des 
HP48 G. Un chapitre de 62 pages nous livre un 
échantillonnage des Externals avec les mnémoniques 
HP et des exemples d’applications, mais par 
l'intermédiaire de SYSEVAL. 


Les 146 pages supplémentaires par rapport à la 1ère 
édition (1990) se justifient pleinement. 


De lecture facile cet ouvrage est devenu nécessaire 
pour tout HPiste (HP48 $S ou G) digne de ce nom. 


Il est au catalogue d’EduCALC sous la référence 
#2900 et pour $ 19.95 


The HP 48 Pocket Book 


lère édition 1993 par James Donnelly 
Armstrong Publishing Company (USA) 
ISBN 1-879828-05-7 (56 pages) 


Ce fascicule pour HP48G/X est un peu l’équivalent 
pour HP48S/X de l’aide mémoire que livrait HP pour 
ces dernières. Sous un faible format (9 x 16,3 cm), 
mais trop large pour entrer dans l’étui de la machine, 
nous y trouvons des listes de renseignements et la 
liste des commandes pour se les remémorer en cas de 
besoin. C’est le pense-bête des HP48Gistes. Dans ces 
strictes limites ce fascicule est utile. 


Il est au catalogue d'EduCALC sous la référence 
2901 et pour $ 6.95 
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"MATHEZ” LA HP48G/GX 
EN 380 programmes 


par J.-M. Ferrard 

Editions D31 1993 

ISBN 2-908791-12-9 (474 pages) 
prix 180F TTC 


Cet ouvrage de Jean-Michel Ferrard est divisé en 2 
parties d'importance et d’objectif différents. 


C’est en quelque sorte un peu la réunion en un seul 
volume de la maîtrise de la HP48 en deux volumes 
mais où le premier volume Programmation et 
Exercices est repris ici moins dans l'optique 
généraliste puisque c’est à partir de problèmes posés 
que sont données les explications concernant la 
programmation en User Rpl et la manipulation des 
objets HP48. Cette première partie d’exercices et 
d'initiation représente 83 pages et certains de ses 
programmes peuvent être considérés comme des 
utilitaires ou des programmes mathématiques 
complémentaires de ceux de la deuxième partie. Ces 
programmes sont livrés dans un but pédagogique et 
ne sont pas forcément optimisés contrairement à ceux 
de la deuxième partie. D’ailleurs l’auteur incite le 
lecteur à améliorer les solutions. 


Les thèmes abordés nous offrent un bon éventail de 
programmation en utilisant les objets HP48 : 


Manipulation d’objets sur la pile, nombres réels ou 
complexes, listes, chaînes et tableaux, variables et 
répertoires, expressions, problèmes graphiques. 


Les corrigés sont évidemment commentés. 


Le gros de l’ouvrage est occupé ensuite par la très 
importante bibliothèque de programmes 
mathématiques, celle-ci ayant évoluée au fil des 
différentes éditions de la maitrise (HP28 puis HP48) 
tome 2 : Programmation et Applications. Lorsque cela 
s'est présenté les programmes ont bénéficié des 
nouvelles possibilités des HP48G/X et ont souvent 
subi une optimisation. Cela conduit à plus de rapidité 
et moins d’encombrement mémoire. 


Je ne m’étendrai pas sur le contenu de cette 2ième 
partie car les programmes de Jean-Michel Ferrard 
dans le domaine mathématique sont bien connus et 
appréciés. 


Pour les utilisateurs de HP48G/X et de 
mathématiques voici donc un ouvrage qui ne décevra 
pas. D'autre part cette nouvelle formule est plus 
avantageuse que celle de la maitrise: 180F au lieu de 2 
fois 180F. 


LES SECRETS DE LA HP48G/GX 
par J.-M. Ferrard 


Editions D31 1993 

TOME 1 6000 Bonnes Adresses 
ISBN 2-908791-10-2 (421 pages) 
prix 200F TTC 


TOME? Externals et Assembleur 
ISBN 2-908701-11-0 

394 pages 

prix 200F TTC 


Les deux volumes de la première édition pour 
HP48$S/X avaient été présentés dans JPC 83 pages 
13-14 et JPC 87 page 17 aussi je me contenterai de 
signaler des différences nécessitées par la venue des 
HP48G/X ou justifiées par un désir d'amélioration. 


Pour le tome 1 : 


- Un chapitre de 15 pages concernant la mémoire 
cachée s’est inséré. Des choses pas faciles à expliquer 
sont exposées concernant les différentes situations et 
priorités relatives à la Ram et la Rom. En effet le 
problème s’est compliqué avec les GX dont la port 2 
peut contenir jusqu'à 4 Mo de Ram qui doivent être 
gérés bien que la mémoire adressable du Saturn ne 
soit que de 512 Ko. On y apprendra ce que sont ces 
êtres mystérieux : les access pointers et comment cela 
peut fonctionner. On y trouvera aussi les adresses des 
routines d’accès aux différents ports logiques des 
numéros 2 à 33. Le mécanisme de CONFIG et UNCONFIG 
est bien expliqué. 


- Le chapitre sur les ports a dû être remanié par la 
même OCCasion. : 


- Le chapitre Solve et Plot a disparu alors qu’un 
certain nombre d'adresses de cet ancien chapitre ont 
été conservées dans la Big-Liste et même certaines 
sont repérées comme des points d’entrées supportés. 
Est-ce un oubli? 


- Des listes ont subi des remaniements. Les points 
d'entrée qui sont supportés sont maintenant signalés 
et ceux qui ont changé sont repérés, Il y a une table 
d'équivalence entre adresses HP48G/X et HP48S/X 
qui ont changé. L'auteur n’a pas oublié ses fidèles 
lecteurs dont le recyclage est ainsi facilité. 


- Une liste récapitulative des points d’entrée, avec les 
mnémoniques spéciliques de lauteur et pour 
l’ensemble des deux tomes, termine le premier tome 
(Big-Liste). 


Pour le tome 2 : 


- Un chapitre de 34 pages est venu grossir ce volume: 
c’est celui concernant la Ram-Système. La liste des 
adresses est donnée avec les mnémoniques HP et des 
explications concernant ces adresses. Un plan de cette 
Ram précède tout cela. 


Par ailleurs des chapitres ont été aussi remaniés pour 
améliorer la forme ou parce que les programmes et 
outils présentés par l’auteur ont été modifiés. 


Si les deux tomes ont grossi de 47 et 31 pages, leur 
prix n’a pas changé. Pour moi ils constituent une 
source d’information très précieuse et en particulier 
remédient aux lacunes de la documentation des outils 
de développement HP. 


Mais comme pour l'ouvrage Voyage 48G de P. 
Courbis je trouve que l’on aurait peut-être pu aller 
plus loin concernant les spécificités des HP48G/GX. 
De ce point de vue je reste un peu sur ma faim. 


Pour cette nouvelle édition on peut obtenir aussi sur 
disquette les différents programmes du tome 2. 


Si certains trouveront peut-être que signaler des 
ouvrages qu'ils possèdent depuis un certain nombre 
de mois leur paraît inutile je leur répondrais qu'il 
aurait été très utile que ces personnes aient fait cela 
avant moi, ce qui aurait rendu service à d’autres 
lecteurs qui sont nouveaux dans le clan HP ou que 
leur éloignement des grandes villes ne leur permet 
pas d’être rapidement tenus au courant des 
nouveautés. 


Guy Toublanc (276) 


INTEGRATION NUMERIQUE 
DANS LE CHAMP COMPLEXE 


L'intégration numérique dans le champ complexe est 
possible avec nos HP48 et HP28. C’est ce que J'ai 
montré dans la rubrique HP28 à laquelle je vous 
renvoie pour les explications et les exemples valables 
pour les deux types de machines. 


Le programme est plus simple sur HP48 grâce à la 
fonction MATCH et à la variable ’IERR’ qui reçoit un 
majorant de l’erreur fonction de la précision désirée 
et précisée avant intégration par le mode d’affichage 
des valeurs numériques. 
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Dans le programme on trouve la variable ?°’ qui est le 
CHR 176 et s’obtient avec [a] puis [shift bleu] et [6]. 
Ce choix est justifié pour éviter les éventuels conflits 
avec d’autres variables utilisées par des programmes. 


Si ce que vous aurez glané dans l’article de la 
rubrique HP28 vous intéresse, vous pourrez vous 
lancer avec le programme suivant: 


INTGCP 
cksum: # 5SD2Eh 151 octets 
« RCLF 5 ROLLD -3 CF 

OVER - DUP © * 

ROT + ROT SWAP 2 -LIST ROT SWAP 

ÎMATCH DROP * 0 1 

3 PICK RE ‘ 

[NUM 

IERR O0 1 5 ROLL IM 

[ NUM 

SWAP IERR R+C ‘IERR' STO 

R+C 

SWAP STOF 


Il n’est pas inutile de revoir le manuel de la HP48 
pour le chapitre sur l'intégration avec ce qui est relatif 
à la précision des résultats. 


Guy Toublanc (276) 


PROBLEME DE COMPATIBILITE 
ENTRE HP48 S/SX et G/GX 


Exécutez le programme suivant sur une quelconque 


HP48 S/SX (versions A à J): 
Li 
CE 1 1 1] à un simple et fictif tableau statistique 
LR 
STOZ 


€ X EQ 2PAR PPAR } PURGE 
SCATERPLOT GRAPH 


+ 


Ceci vous laisse dans l’environnement interactif 
GRAPH, avec un PICT presque blanc (en fait seulement 
deux points ont été tracés), pressez la touche [FCN] du 
menu (la plus à droite), ceci tracera la ligne joignant 
les deux points statistiques. 
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Après cela abandonnez l’environnement GRAPH, 
pressez la touche [ON], allez dans le menu VAR et 
examinez : 


IPPAR' := € (1,.85) (2,2) X O (0,0) FUNCTION Y } 
IEQ' = /0+1*x" 


Ici tout est normal. 


Maintenant transférez ’PPAR’ et ’EQ’ dans une HP48 
G/GX, (par ZR ou wire, c'est sans importance). Si 
vous utilisez le mode ASCII (indicateur -35 mis à 
zéro), tout est normal, mais si vous utilisez le mode 
Binaire, qui est le mode de transfert le plus rapide, 
vous recevrez côté G/GX des choses étranges : 


fPPAR! := € (1,.85) (2,2) External 0 (0,0) 
FUNCTION Y } 
1EQ! := !O+T*UNKNOWN! 


Que s'est-il produit ? 


Bien sûr ce n’est pas un problème de transmission; en 
clair, la routine SX qui calcule et trace la fonction 
sélectionnée  (LINear, LOGarithmic, EXPonential Ou 
POWer) pour ajuster les données statistiques, crée, s’il 
n’est déjà présent dans le répertoire courant, un *PPAR’ 
dans lequel la valeur par défaut pour la DEPeNDent 
variable est ’X, et, par conséquent, une ’EQ’ qui est 
fonction de ’X. Les noms globaux ’X’ inclus dans 
‘PPAR’ et ’EQ’ ne sont pas stockés comme de "vrais 
objets, mais plutôt par le biais de deux adresses/ 
pointeurs de la ROM S/SX, où ’x est réellement 
stocké, et cela pour économiser quelques octets de 
RAM. Malheureusement ces adresses spécifiques 
S/SX, # 4A154h dans ‘PPAR’ et # 4A19Eh dans ’EQ’ ne 
sont pas restées inchangées sur les G/GX, mais 
disparurent, se déplacèrent, ou je ne sais quoi d’autre 
mais le résultat ne change pas : 


En mode Binaire le transfert d’objets d’une HP48 à 
une autre conserve la stucture interne binaire, s'ils 
sont de vrais objets, ou simplement envoie leurs 
adresses s'ils sont référencés par un pointeur, comme 
dans le cas de ’X’. Mais l'adresse # 4A154h dans *PPAR’ 
ne signifie rien sur une G/GX, qui ainsi est affichée 
External, qui n’est pas dans ce cas un pointeur à une 
partie bien définie du code mais simplement une 
mauvaise adresse. 


De même, # 4A19Eh dans ’EQ’ est renvoyé dans le nom 
global ’UNKOWN’ qui est la manière dont les algébriques 
représentent la plupart des objets non alloués, autres 
que les nombres réelles/complexes, unités, noms 
globaux/locaux et fonctions. 


Les G/GX stockent par défaut, et reconnaissent le 
nom global ’x comme deux autres adresses de ROM 
qui sont également présentes dans les S/SX : 


# 47A59h et 4AB1Ch 


En fait, aucune de ces adresses n’est garantie rester 
stable dans les futures versions HP48 G/GX, n'étant 
pas donnée dans la liste HP NOMAS des points 
d'entrée supportés. 


Le transfert en mode ASCII, au contraire, travaille 
sans problèmes parce que le transfert se fait au 
moyen des caractères ASCII (de la manière dont les 
objets apparaissent dans la ligne de commande), qui 
sont envoyés et reçus (et parsés) en série, sans tenir 
compte de la structure interne des objets eux-mêmes. 


David Fabiani (HPCC 650) 
(traduit de l’anglais par Guy Toublanc) 


David Fabiani est milanais et, bien qu’apportant sa 
participation au club anglais HPCC et à 48Sxtant, 
journal de notre ami Robert Pulluard, a eu la 
gentillesse de nous communiquer cet article. 


Cette découverte doit nous rendre vigilants, en 
particulier pour les fichiers HP48 sauvegardés sur 
support magnétique puis diffusés par le club. De là à 
demander aux auteurs de programmes de transmettre 
les fichiers HP48 en User Rpl sous les deux formes, 
Binaire et ASCI, il n’y a qu’un pas. 


En plus du problème des adresses différentes 1l y a 
aussi le fait que pour la procédure ci-dessus les 
G/GX ne génèrent plus la variable globale x dans le 
répertoire courant. Est-ce peur éviter les conflits avec 
d’autres programmes qui utiliseraient cette même 
variable ? 


G.T 


CALCULS ASTRONOMIQUES 
ACTE 


Dans mon précédent article (JPC 90), je vous ai 
décrit les routines de calculs des positions des 
principales planètes dans le système solaire. Cette 
fois, nous allons déterminer les coordonnées de ces 
objets dans notre ciel local. Nous ajouterons la lune à 
notre liste d'objets célestes. 


Un objet dans le ciel est repéré par sa direction 
(0-360° par rapport au nord) et sa hauteur (0-90°). 
Pour passer des coordonnées écliptiques à ces 
coordonnées locales, 1l faut effectuer un double 
changement de repère: passage du repère 
héliocentrique dans le plan de l’écliptique au repère 
terrestre dans le plan de léquateur, puis passage au 
repère lié au lieu géographique (longitude, latitude) 
et à l'heure de l'observation (la terre tourne). 


lère opération : passage au repère terrestre 
Les planètes : 


La première opération consiste à changer d’origine en 
retranchant le vecteur position de la terre, puis à 
effectuer une rotation correspondant à l’angle 
d’inclinaison de l’axe de la terre par rapport au repère 
sidéral. Cet angle, de l’ordre de 23°, est calculé par la 
routine FA dans la variable Eps. 


La lune : 


La routine LUNE fournit les coordonnées de la lune 
dans le repère écliptique centré sur la terre. 


Le soleil : 


Nous connaissons les coordonnées de la terre par 
rapport au soleil, donc nous connaissons l'inverse. 


2ème opération : passage au repère local 


Nous devons effectuer ici 2 rotations : une premiere 
rotation autour de laxe Z d’un angle égal à la 
longitude plus l'angle de rotation de la terre sur 
elle-même, puis une deuxième rotation autour de 
l’axe Y d’un angle égal à la lattitude. 


Réalisation des rotations : 


Pour faire effectuer une rotation à un vecteur, une 
méthode simple consiste à utiliser une matrice 
rotation. 


Les routines MRX, MRY et MRZ fournissent les matrices 
rotations autour des axes x, y et z. Elles prennent en 
entrée l’angle de rotation. Les mathématiques nous 
disent que la matrice rotation est constituée des 
nouvelles coordonnées des anciens vecteurs de base. 
La HP48 connaissant les coordonnées sphériques, ne 
nous ennuyons pas avec les sinus et cosinus et 
construisons directement la matrice. 


Par exemple, MRX est défini comme suit : 
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Lui 
+ à à angle de rotation 
LS 
1 0 90 +V3 OBJ-+ DROP 
1 90 90 a + -V3 OBJ-+ DROP 
1 90 a +V3 OBJ-+ DROP 
{33} +ARRY TRN 
+ 
» 


En effet, les vecteurs de base ont pour nouvelles 
coordonnées : 


ÉTEL LÉ 4 12 
[ 1 490 Z (90+a) ] 
[ 1 490 Z a ] 


inchangé 


La fonction -ARRY ne permettant pas de construire une 
matrice à partir de vecteurs, les séquences "OBJ-+ DROP 
redécomposent les éléments des vecteurs formés par 
+V3. TRN sert à transposer la matrice car -ARRY 
construit celle-ci par ligne et non pas par colonne. 


Nouvelles fonctions : 
A coté de CALC, DT et POSPL, apparaissent dans ASTRO : 


LIEU : variable liste contenant la longitude et la 
latitude du lieu d'observation (en degrés décimaux). 


Vous devez définir cette variable par vous-même. 


A titre d’exemple, Paris correspond 
approximativement à € 2.3 48.7 } et Grenoble à 
€ 5.43 45.1 }. 


La longitude est positive si le point est à l’est du 
méridient de Greenwich, et la latitude est positive 
dans l’hémisphère nord. 


CIEL : cette fonction, utilisant POSPL (à exécuter donc 
après CALC) fournit une liste contenant les positions 
des astres dans le repère équatorial. Le résultat est 
dans POSEa, dans l’ordre Vénus, Mars, Jupiter, 
Saturne, Soleil, Lune. 


AFFCIEL : routine d’affichage des astres dans le ciel 
utilisant POSEQ, DT et LIEU. 


PLANET : programme principal attendant la date et 
l'heure, et enchaïnant CALC, CIEL et AFFCIEL. 


Une précision : le temps utilisé dans tous ces 
programmes est le temps universel (encore appelé 
heure du méridient de Greenwitch}, retranchez donc 
une ou deux heures de l'heure locale suivant la saison. 
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L’illustration jointe à cet article a été créée par : 
16.111993 13 PLANET. J’ai choisi cette date car tous les 
astres sont présents dans le ciel. Les planètes sont 
représentées par un point et identifiées par une lettre, 
tandis que le soleil et la lune sont représentés par un 
rond et une croix. 





AFFEQ : j'ai créé cette routine pour valider les résultats 
de mes programmes, je vous la laisse car elle peut 
intéresser certains d’entre vous. Elle convertit les 
coordonnées équatoriales de Posea du format 
sphérique utilisé par la HP48 au format 
astronomique : déclinaison droite et ascension en 
heures (ou degrés), minutes, secondes. 


Par exemple, comparons les résultats de la HP48 aux 
données des éphémérides du 15/08/93 (source : 
revue Ciel & Espace juillet-août 93). 


Faire 15.081993 O0 CALC CIEL AFFEQ. 


Résultats: 
HP48 Ciel & Espace 
Mars 12h07mné2s 12h07mné2s 
-0°14/5811 -0°14/55'7 
Jupiter  12h45mn59s 12h46mn02s 
-3°4043'! -3°41/09!" 
Saturne 22h00mn11s 22h00miés 
-13°48'38"' -13°49:41'! 


Ce qui n’est pas trop mal... 


Nouvelles fonctions à ajouter dans le sous répertoire 
0BJ NDLR : Voir JPC 90 page 18 pour la première partie des 
SOUTCES ; 


FA a été optimisée et complétée. 


JD a été réécrite et grandement simplifiée grâce à 
DDAYS. 


EQUAT, LOCAL, MRX, MRY, MRZ réalisent les changements de 
repères. 


PPAR, DESSIN, réalisent 


graphique. 


FFOND,  GASTR l'affichage 


LUNE calcule la position de notre satellite. 


Ce modeste programme de planétarium pourrait bien 
sûr être amélioré : 

- animation de la rotation de la voûte céleste, 

- gestion des autres planètes ou encore affichage les 
principales étoiles. 


Je ne compte pas vous en proposer à court terme 
d'évolution (je me suis lancé dans un autre projet), 
aussi je laisse ces développements "au lecteur, à titre 
d'exercice”. 


J'espère cependant vous avoir convaincu de la 
puissance de la HP48 quant au calcul vectoriel dans 
l'espace et aux changements de repère. 


A vos claviers, et à bientôt. 
Programmes : 


Répertoire ASTRO : 


QPLANET 

a calcul et affichage du planetarium 

à entrees: 

à niveau2: date (ou O0 si date courante) 
à niveaul: heure (ou O0 si heure courante) 


PLAMNET 
« 
IFERR 
DUP2 DROP2 
THEM 
HMERREUR: ENTREZ 
LA DATE ET L'HEURE" 
DOERR 
END 
CALC CIEL AFFCIEL 


x 


aCIEL 
4 positions des objets (Vénus, Mars, Jupiter, 
a Saturne, Soleil, Lune) 


e) 


dans Le repère équatorial 
a entrees: 

a POSPL 

a arguments calculés par FA 
ad sorties: 

a POSEQ 


POSPL ad rappelle positions planètes 
OBJ+ DROP 
& ROLL à récupère terre 
5 ROLLD ad construit liste 
& LIST a des 4 autres planètes 
+tp à terre positions 
Li 

1 & FOR i 

p i GET t - 

NEXT 

& LIST 

t NEG + d ajoute soleil à La liste 
> 
OBJ a va dans DIR OBJ 
SETM 
LUNE a calcul pos lune 
+ à ajoute à La liste 
Eps a angle inclinaison equateur 


EQUAT à convertit pos objets 

a dans repère équatorial 
UPDIR a retour dans ASTRO 
"POSEQ' STO 


x 


QAFFCIEL 

à affichage du ciel local 
à entrées: 

a POSEQ, LIEU, DT, 

à Tsg0 (calculé par FA) 
à sorties: 


a PICT 
t---mmmemmmmmmmmmmmmmm mm mm mmmmmmmmmmmmmmnsnem=s 
AFFCIEL 
ii 
POSEQ à positions équatoriales 
DT 4 GET a rappelle heure 
LIEU à et Lieu 
OBJ SETM 
Tsg0 a t. sidéral de greenwitch OTU 
ROT ROT 
LOCAL ad conv. repère Local 
DESSIN 
UPDIR 
++ 
A RS DE LR D 
QAFFEQ 
d conversion des positions équatoriales 
à exprimées en coord. polaires (HP48) 
da en coord. astronomiques : 
à ascension droite (0 à 24 h) 
a et déclinaison (0 à 90 °) 
à entrées: 
à POSEQ 
a mode DEG et coord. sphériques 
à sorties: 
à niveau 1 : liste des coordonnées 
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POSEQ OUP SIZE 
+pn 
« 
1 n FOR i 
p i GET V+ ROT DROP 
SWAP 360 / 24 * 24 MOD -HMS 
SWAP 90 SWAP - -HMS 2 -LIST 
NEXT 
n +LIST 


+ 


a Lieu d'observation 

à { Longitude latitude } 
a longitude <0 si ouest 
a Latitude <0 si sud 
LIEU 

€ 5.43 45.1 } 


Sous-répertoire OB)J : 


aJD 

à conversion de La date et de l'heure 
d en temps exprimé en jours Julian 

à par rapport au Îer janvier 2000 12h 
ad entrees: 

ü niveau2: date 

à niveaul: heure 

à sorties: 

d niveaul: temps en jours julian 


HMS+ 24 / ,5 - 1.012000 ROT DDAYS + 


x 


aFA 
calculs des arguments fondamentaux 
éntrees: 
niveaul: temps en jours Julian 

par rapport au 1/01/2000 12h 


Lm,Gm,Fm,Ls,Gs,L2,G2,F2,L4,G4,F4,L5,65,L6,Gé6 
Ts, Tsg0, Dms,Om,Eps,DL 


a 
à 
à 
à 
d sorties: 
q 
a 
d mode DEG et coord. sphériques 
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DUP 13.17639643 * 218.31624 + ’Lm’ STO 
DUP 13.06499295 * 134.96292 + 'Gm' STO 
DUP 13.22935027 * 93.27276 + ‘Fm’ STO 
DUP .985647348 * 280.46592 + 'Ls’ STO 
DUP .9856 * -2.47464 + 'Gs' STO 
DUP 1.602169 * 181.97928 + '’L2' STO 
DUP 1.60213022 * 50.40828 + ’G2'’ STO 
DUP 1.60214407 * 105.29928 + ’F2' STO 
DUP .524071181 * -4.55292 + 'L4’ STO 
DUP .52402078 * 19.388116 + ’G4’ STO 
DUP .524050085 * 305.88984 + '’F4’ STO 
DUP .083091215 * 32.25888 + 'L5' STO 
DUP .08309121 * 20.35116 + ’G5’ STO 
DUP .033459736 * 47.9862 + 'Lé! STO 
DUP .033459736 * 317.87532 + 


"Gé" STO 
DUP 36525 / 1 + ’Ts' STO à temps séculaire 


5 - FLOOR .5 + 36525 / 1 + 
DUP .000387083 * 36000.76893 + * 
99.69098325 + 360 MOD 
"Tsg0' STO ad temps sidéral 
a de Greenwitch à Oh TU 


Lm Ls - ’Dms' STO 
Lm Fm - OUP ‘Om’ STO 


DUP COS 400 / Ts 1.3056E-2 * - 
23.4522222 + 
fEps' STO da angle de l'équateur/écliptique 


SIN 4./7288E-3 * 'Dl’ STO 


QEQUAT 

a conversion en coordonnées équatoriales 
à entrées : 

a niveau 2: liste de coord. écliptiques 
à centrées sur la terre 

ad niveau 1: angle du plan de l'équateur 
a par rapport à l'écliptique 
a mode DEG et coord. sphériques 

à sortie : 

d niveau 1: liste de coord. équatoriales 


NEG MRX a matrice rotation X 


OVER SIZE 
“prn à positions rotation nombre 
LC 

1 n FOR i 

F bp i GET * 

NEXT 

n LIST 
+ 


+ 


entrées : 
niveau 4: liste de positions équatoriales 
niveau 3: temps sidéral de Greenwitch à Oh TU 
è: heure TU de l'observation 
1: Liste longitude, Latitude 

du lieu d'observation 
mode DEG et coord. sphériques 
sortie: 
niveau 1: liste d'observations locales 


à 

à 

à 

a niveau 
a niveau 
à 

à 

d 

a 


Q-------“mcmmanmmanmmmamsmmmmmmmmmmmmm—s 
LOCAL 
Lot 
OBJ+ DROP à {...} Tsg0 heure Long Lat 
90 SWAP - MRY à matrice rotation Y 
& ROLLD à {...} rot.Y Tsg0 heure Long 
ROT ROT à {...} rot. Long TsgÜ heure 
15.04106863 * + 9 €...} rot.Y Long GST 
+ MRZ à matrice rotation Z 
a ATTENTION: 
x: a multiplication non commutative ! 
à l'ordre a de l'importance 
OVER SIZE 
+prn à positions rotation nombre 
LE 
1 n FOR i 
Fr p i GET * 
MEXT 
n +LIST 


x 


à 


AMRX, MRY, MRZ 
a Matrices rotations X, Ÿ, Z 

à entrées: 

à niveau 1: angle rotation 

a mode DEG et coord. sphériques 
a sortie: 

à niveau 1: matrice rotation 


1 0 90 +V3 OBJ-+ DROP 
1 90 90 à + -V3 OBJ- DROP 


1 90 a +V3 0BJ+ DROP 
CS 23 +ARRY TRN 
x» 
x 
MRY 
te 
+ 8 
Lu 
1 0 90 a - -V3 OBJ+ DROP 
1 90 90 +V3 0BJ+ DROP 
1 180 a +V3 0BJ+ DROP 
Les 4 +ARRY TRH 
x 
x 
MRZ 
Los 
+ à 
« 
1 a NEG 90 -V3 OBJ- DROP 
1 90 a - 90 -V3 OBJ-+ DROP 
100 +V3 OBJ-+ DROP 
CS 33 +ARRY TRN 
+ 
x 


à param. graphiques 
PPAR 
€ (-100,-100) (100,100) X 0 (0,0) FUNCTION Y } 


DESSIN 

a Dessin du ciel 

à entrées: 

a niveau 1: liste des positions des objets 
à FOND, GASTR 

à mode DEG et coord. sphériques 

a sortie: 

a PICT 


DESSIN 
LCA 
FOND 
IFERR 
PICT STO 
THEN à 51 FOND ne contient pas encore 
DROP2 à Le GROB, on Le construit 
FFOND 
END 
-19 SF 
DUP SIZE + pn 
Let 
1 n FOR i 
p i GET V-+ DUP 
IF 90 < THEN 
SWAP NEG 90 - -+V2 C-PX OBJ-+ DROP 
1 - SWAP 1 - SWAP 2 LIST 


à ->Vé construit un complexe 
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PICT SWAP GASTR i GET GOR 
ELSE 
DROP2 
END 
DROP 
NEXT 
pi 
€ } PVIEW 


+ 


@F FOND 

à construction du fond 
à sortie: 

à FOND, PICT 


# 131d DUP PDIM 

(0,0) 90 0 360 ARC à très lent! 
PICT € # 63d # Od } "IN! 2 -GROB GOR 
PICT € # 63d # 124d } "S!! 2 -GROB GOR 
PICT € # Od # 63d } ME" 2 -GROB GOR 
PICT € # 126d # 63d } "O" 2 -GROB GOR 
PICT RCL ’FOND' STO 


AGASTR 
a GROBS des astres : 
ad vénus, mars, jupiter, saturne, soleil, lune 


GROB 6 8 0020008282820101 
GROB 6 8 0020008283828282 
GROB 6 8 0020000202028283 
GROB 6 8 0020000380010281 
GROB 6 6 2050200000000000 
GROB 6 8 2070200000000000 


LUNE 
Calcul de La position de La lune dans 

Le repère écliptique centré sur La terre 
entrees: 

arguments calculés par FA 

mode DEG et coord. sphériques 

sortie: 

niveau 1: position 


D D 0-r86 Lt 
dd 
Gm SIN 6.289 * 
Gm Dms 2 * - SIN 1.2739 * - 
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x 


x 


Dms 2 * SIN .65833 * + 

Gm 2 * SIN .21361 * + 

Gs SIN .1856 * - 

Fm 2 * SIN .1144 * - 

Gm Dms - 2 * SIN .05889 * - 

Gm Dms 2 * - Gs + SIN .05722 * - 
Gm Dms 2 * + SIN .05333 * + 
Dms 2 * Gs - SIN .04583 * + 

Gm Gs - SIN .04111 * + 

Dms SIN .03472 * - 

Gm GS + SIN .03056 * - 

Fm Dms - 2 * SIN .015278 * - 

Gm Fm 2 * + SIN .0125 * - 

Gm Fm 2 * - SIN 90 / + 

Gm Dms & * - SIN .01056 * - 

Gm 3 * SIN 100 / + 

Gm 2 * Dms 4 * - SIN .00861 * - 
Gm Gs - Dms 2 * - SIN .007778 * + 
Dms 2 * Gs + SIN 150 / - 

Gm Dms - SIN .0052778 * + 

Dms Gs + SIN 200 / + 

Lm 360 MOD + 

DL - 

FLE STO 


Fm SIN 5.1281 * 

Gm Fm + SIN .28056 * + 

Gm Fm - SIN 3.6 / + 

Fm Dms 2 * - SIN .17333 * - 

Gm Fm - Dms 2 * - SIN .055278 * - 
Gm Fm + Dms 2 * - SIN .046389 * - 
Fm Dms 2 * + SIN .0325 * + 

Gm 2 * Fm + SIN .0172 * + 

Gm Fm - Dms 2 * + SIN .009167 * + 
Gm 2 * Fm - SIN 112.5 / + 

Fm Dms 2 * - Gs + SIN 120 / - 

Gm Dms - 2 * Fm + SIN 225 / - 

Gm Fm + Dms 2 * + SIN 240 / + 

"D" STO 


60.3629 

Gm COS 3.27746 * - 

Gm Dms 2 * - COS .57994 * - 
Dms 2 * COS .46357 * - 

Gm 2 * COS .08904 * - 
25H PET TD 


r | 90 b - -V3 "Lune! TAG 


Jean-François Garnier (242) 


L’'INSERTION DE DATAS 
EN ASSEMBLEUR 


Dans un programme en assembleur, l’utilisateur peut 
être amené à placer des data, c’est à dire non pas des 
instructions saturn mais des données destinées à être 
lues par un pointeur. La question se pose alors : 
comment obtenir l’adresse de ces data puisqu'elle 
change à chaque fois que l’on déplace le code dans la 
mémoire. Deux méthodes sont à retenir : 


1ère méthode: 


Gosub Data Appel à un sous-prog juste avant Les 
data. L'adresse de La ligne suivante 
(i.e. des data) est empilée sur rstk 

Te Les data elles-mêmes 

*Data Label où doit commencer le sous-prog 
(qui n'en est pas un) 

c=rstk On désempile La rstk. L'adresse des 


data va dans C champ A. 


2ème méthode: 


A=PC A contient l'adresse de La ligne 
suivante 

GoinC À C contient l'offset aux data (cette 
instruction est propre à 
ASM-Flash Nouvelle version) 

A=A+C À On additionne Les deux. A(A) 
contient l'adresse des data. 

dus Les data eux-mêmes 


La première méthode est légèrement plus courte (3.5 
octets) et présente l’avantage de n’utiliser qu’un seul 
registre. La seconde est intéressante car elle permet 
de placer les data n'importe où dans le code (c’est 
particulièrement utile pour les librairies auto- 
-modifiantes). 


Les Data sont en fait placées dans le code telles 
quelles à la compilation. Il faut donc qu'elles soient 
déjà retournées. Pour les grobs (les data la plupart du 
temps en sont), cela n’a aucune importance car ils 
sont traités par la machine quartet par quartet (le 
saturn retourne par blocs). Les data peuvent être 
entrés sous deux formes : 


$+data sous forme héxa 
QU gr SES = ns ascii 


Enfin, les data rendent souvent impossible le 
désassemblage d’un code par un désassembleur car 
celui-ci essaye essaie de les interpréter comme des 
instructions de LM, ce qui donne n'importe quoi. 
L’instruction RTNSxM, codée par 00 apparait par 
exemple fort fréquemment au  désassemblage. 
Certains désassembleurs toutefois comme UNASS-1.2 
reconnaissent la séquence Gosub ... C=RSTK et en 
conséquence laissent intacts ce qui se trouve entre. 


Arthur Ripoll (590) 


VERIFICATION DES ARGUMENTS 
DANS UNE LIBRAIRIE 


Avant d'exécuter un programme en système-rpl ou en 
assembleur, il vaut mieux généralement vérifier que 
les arguments présents sur la pile sont bien du bon 
type, si l’on ne veut pas risquer de perdre le contenu 
de sa mémoire. 


L'utilisateur peut créer un programme pour cette 
vérification (comme CHK dans Voyage au centre de la 
HP). Mais il dispose également de routines en ROM 
prévues à cet effet (je ne parlerai dans cet article que 
des adresses prévues pour les programme au sein 
d’une librairie, mais 1l existe des adresses équivalentes 
pour les programmes RPL). 


Les avantages sont : 


- Elles sont dans la Rom et ne prennent donc pas de 
mémoire. 

- L'erreur créée affichera le nom du XLIB faisant 
erreur. 

- L'exécution du programme peut être différente 
selon les objets sur la pile. 

- Une sauvegarde de la pile est effectuée dans LASTARG 
et LASTSTACK. 


L’inconvénient : 
Le nombre maximal d’argument vérifié est 5 (taille 
d’un entier-système) voire moins pour certains objets 


"rares". 


Voici les adresses : 
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Vérification uniquement du nombre 


LCHKO # 18AÏE h 
LCHK1 # 18AA5 h 
LCHK2 # 18A80 h 
LCHK3 # 18458 h 
LCHK& # 18892 h 
LCHK5 # 18B6D h 


Vérification du nombre et des types 


LCHKTT # 18ECE h 
LCHKT2 # 18EDF h 
LCHKT3 # 18EF0 h 
LCHKT4  # 18F01 h 
LCHKTS  # 18F12h 


Les types des arguments contrôlés par les adresses de 
la seconde colonne sont passés sous forme 
d’entiers-système selon le tableau suivant : 


Objets de type courant 
0 Objet qcq | 8 Programme 
1 Réel | 9 Algébrique 
2 Complexe | À Alg ou nombre 
3 Chaine | B Entier binaire 
4 Tableau | C Graphique 
5 Liste | D Objet taggé 
6 Nom Global | E Unité 
7 Nom Local | 


Objets "rares" codés sur 2 quartets 


OF Nom XLIB &F Librairie 
1F  Entier-système 9F Backup 
èF Répertoire AF Lib Data 


| 
| 
3F Réel long | BF Réservé 1 
&F Complexe Long | CF f 2 
5F Tableau chaîné | DF Fr à 
6F Caractère | EF M % 
7F Code | 


Prenons un exemple pour clarifier les choses : 


PRG 

$ 18ECE 
00033 Si à chaînes ... 
+ ... alors + 
00010 Si 1 réel et un objet qcq 
PRG .. älors 
DROP DROP 
LN LN 
EMD 

END 


C’est un sorte de stucture SWITCH ... CASE .... 
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Les fonctions de RPL classiques utilisent ces adresses 
pour vérifier les arguments sur la pile et utiliser les 
points d'entrée adéquats. Voici pour exemple 
comment se décompose la fonction sa : 


PRG 
$ 18ECE 
00001 
$ 1B47B 
00002 
$ 1B48F 
00004 
$ 36435 
OO0OOA 
$ 54F9A 
O000E 
$ 0F913 
END 


Pour "démonter" ainsi une fonction RPL on peut 
utiliser l’adresse # 54AFh avec la fonction sur la 
pile.On voit déjà les horizons ouverts par cette étude 
des fonctions User-RPL : la découverte de nouvelles 
adresses plus précises, plus rapides (mais aussi plus 
dangeureuses). Il suffit de vérifier les arguments une 
fois pour toutes au début du programme, puis on peut 
employer les adresses trouvées par la méthode 
ci-dessus. 


Autre application : la non-sauvegarde d’arguments. 
La pile sauvegardée par les adresses est employée 
lors des interruptions causées par l'appui sur [ON]. 
Ainsi à ceux que cela dérange de trouver 0 sur la pile 
en ayant appuyé sur [ON] dans une structure 
O MAIT DROP, je conseille de remplacer WAIT par 
$ 1A738. 


De même, on pourra remplacer INPUT par $ 43395 


(arguments = 2 chaînes) ou par $ 433cC (arguments 
= 1 chaîne et une liste). 


Arthur Ripoll (590) 


DE CHAINE EN CHAINE 
Actell 


On ne le dira jamais assez que notre journal JPC ne 
peut être attractif que par la diversité des sujets 
abordés et donc par la participation du plus grand 
nombre de lecteurs et quelque soient les niveaux et 
les langages de programmation. Ce qui compte avant 
tout c’est de savoir qu’il existe des besoins et des 
centres d'intérêts qui sont matière à programmation. 
Aussi je suis très reconnaissant envers Robert Amram 
qui nous a révélé une utilisation assez inattendue de 
sa HP48. Cela m'a rappelé, qu’à l’âge d’or du HP-71, 
un très bon programmeur finlandais (Tapani 
Tarvaïnen) avait réalisé un Lex pour JPC Rom : 
MAPLEX. Ce Lex fait la même chose que le programme 
zMc de Robert pour les chaînes et traite même les 
fichiers texte du HP-71. 


Aussi j'ai pensé que cela pourrait peut-être rendre 
service d’adapter à la HP48 le Lex pour HP-71 et 
pour les raisons suivantes : 


Le programme zMc de Robert fait usage de REPLACE de 
la Tool Library de James Donnelly. Or un certains 
nombre de commandes de celle-ci ont été intégrées 
dans la Rom des HP48 G/GX, ce qui pour les 
possesseurs de ces dernières leur fera peut-être 
renoncer à ce produit commercial d’autant qu’il leur 
faudrait sacrifier 9392 octets de Ram. La commande 
SREPL de la DEVLIB peut s’utiliser aussi à la place de 
REPLACE. Mais ceux qui possèdent une HP48S ou G et 
économisent leurs 32K de Ram, ou n’utilisent pas les 
autres commandes, se contenteraient d’une solution 
plus autonome. 


Voici donc MAP pour HP4S8 et ses avantages : 


- Simplicité d'emploi : 


niveau 3 la chaîne à traiter 

niveau 2 Îla chaîne contenant la suite des caractères 
à remplacer 

niveau 1 la chaîne contenant la suite des caractères 
de remplacement 

MAP —  Îa chaîne transformée 


- Economique en mémoire : 

Ce programme n'occupe que 148.5 octets et utilise 
des chaînes de caractères au lieu de listes de chaînes 
de un caractère. Par exemple pour la liste des douze 
caractères accentués 1l faut 77 octets contre 17 pour la 
chaîne de ces douze caractères mis bout à bout. 


- Rapide : 


Le traitement d’une chaîne de plus de 3 Ko avec le 
remplacement de 12 caractères accentués se fait 50 
fois plus vite avec MAP qu'avec le programme de 
Robert. 


Exemples d'utilisations 


En plus de l’usage que nous a révélé Robert, on peut 
par exemple : 


- Convertir une chaîne de majuscules en minuscules : 


la chaîne à traiter 
la suite des majuscules dans une chaîne 
qui peut s’obtenir aussi par : 

« M 65 90 FOR I I CHR + NEXT » 
la suite des minuscules dans une chaîne 
qui peut s’obtenir aussi par : 

« M 97 122 FOR I I CHR + NEXT » 


niveau 3 
niveau 2 


niveau 1 


MAP + la chaîne transformée 

- Convertir un fichier texte en simple ASCII tapé sur 
un IBM PC et transféré dans une HP48 où il sera 
utilisé sous forme de chaîne. 


la chaîne à traiter 
la suite des caractères accentués du PC 
qui peut s’obtenir par : 
« € 137 131 136 130 133 138 139 140 147 

151 150 135 7} “ee 1 12 

FOR I OVER I GET CHR + NEXT SWAP DROP » 
ou tout simplement en tapant sur le PC : 
"éaééaènouûc" 
Le fichier texte de cette seule ligne étant 
importé dans la HP48 
la chaîne des caractères correspondants de 
la HP48: 
“éäééaènouûc" 
qui peut s’obtenir par : 
« { 235 226 234 233 224 232 239 238 244 

249 291 231 }-"U 1 12 

FOR I OVER I GET CHR + MNEXT SWAP DROP » 
ou sur une HP48G/GX avec CHARS 


niveau 3 
niveau À 


niveau 1 


MAP + la chaîne transformée 


- Convertir un texte (chaîne) de votre HP48 en un 
fichier texte en simple ASCII à exporter sur un IBM 
LÉ: 

Il suffit de procéder comme ci-dessus en permutant 


les chaînes des niveaux 1 et 2. 


Tout ceci peut permettre de résoudre les problèmes 
des cas suivants : 
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Vous n'avez pas de PC mais vous avez la possibilité 
de recevoir (par l'intermédiaire d’un autre HPiste ou 
d’un serveur) la documentation issue d’un IBM PC et 
relative à des programmes ou des librairies, alors MAP 
est tout indiqué pour rendre cette documentation 
lisible sur votre HP48. 


Vous n'avez toujours pas de PC mais vous avez 
concocté sur votre HP48 un article pour JPC. Un 
appel à MAP et vous voilà prêt à transmettre votre 
travail par deux voies possibles: un autre HPiste vous 
transférera cela sur disquette à envoyer à PPC, ou 
vous venez à une réunion du club et Jacques 
récupérera dans son HP95 votre prose qu’il pourra 
visualiser immédiatement. 


Remarques: 


- Mettre en correspondance les caractères HP48 et 
PC, donc respecter le même ordre. 


- Les transferts HP48 <-> PC se feront par Kermit 
en mode ASCII avec translate code 1. Pour le 
transfert PC -> HP48 le fichier texte du PC 
commencera et se terminera par les délimiteurs de 
chaîne ", Lors d’une réception sur PC d’une chaîne 
HP48, il faudra éliminer la première ligne de l’en-tête 
Kermit ainsi que les délimiteurs de chaîne au début et 
en fin du fichier texte du PC. 


- On pourra transposer les exemples ci-dessus à tout 
type de micro-ordinateur. 


- On pourra aussi étendre le nombre de caractères à 
transposer d’une machine à l’autre, il suffit de trouver 
les correspondances et de respecter le même ordre 
dans les chaînes des niveaux 1 et 2. 


- On peut très bien concevoir un programme faisant 
les conversions dans les deux sens. Pour cela il suffit 
de mettre les deux chaînes des niveaux 1 et 2 dans une 
liste: 


€ MCCCC....CCCCC" Meccc. .. CCC" à 


Par exemple si "ecec....cce" est la chaîne pour les 
caractères type PC et "cccc...cccc" la chaïne côté 
HP48, la liste étant stockée dans la variable ’Pc48” on 
peut avoir le programme +PC48+ : 


PC48 OBJ+ DROP 
MspC: O -HP4B: 1" 
Hi INPUT OBJ-+ 

IF THEN SWAP END 
MAP 
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avec au niveau 1 : la chaîne à traiter 


il suffit de répondre avec 0 pour la conversion dans le 
sens HP48-PC et 1 dans le sens PC-HP48. 


Pour ceux qui n’utiliseraient MAP que pour cette seule 
application j'ai intégré l’ensemble de ce programme, 
les chaînes de caractères accentués et MAP, dans le 
programme +PC48- en System Rpl et assembleur. Pour 
cela le début du fichier source de map doit être 
modifié comme suit : 


+-PC48- 
213.5 octets cksum # AC95Sh 


CK1NoBlame CK&DISPATCHT str 
$ "\eb\e2\ea\e9\e0\e8\ef\ee\f4\f9\fb\e7" 
$ "1\89\83\88\82185\8a\8b\8c\93\97\96\87" 
$ M\8DPC: O0 \8DHP48: 1" 
NULLS XINPUT xOBJ> 
AQ> ?SWAP 
ROT TOTEMPOB 
ECDE scene 
suite idem MAP 


Les avantages : cela ne coûte que 213.5 octets et il n’y 
a qu'une chose à stocker. 


Bien d’autres applications sont possibles. Et j'espère 
que des lecteurs nous feront part des leurs. 


Voici pour les amateurs de programmation en 
assembleur le listing commenté du fichier source de 
MAP. 


eo re re eee ele ee oh ee ee of ee er re re er re hr 


le ee de he ie ee ee ee er or ere ee re ee ee er ee er re re de de 


MAP 
(cksum: # 33FAh 148.5 octets) 
remplacement des caractères d’une chaîne 
Création: 10/02/94 Adaptation par Guy Toublanc 
du Lex Maplex (JPC 46 7/87) 
pour HP71 de Tapani Tarvaiïnen 


ÆÙ OÙ ON ON #  #  *  *# 
Æ OÙ Ù  #  #  #  *# 


# 


Syntaxe: niveau 3 <- str0 : chaîne à traiter 
niveau 2 <- str1 : chaîne des caractères * 


# 


* à remplacer * 
* niveau 1 <- str2 : chaîne des caractères * 
” de remplacement . 
” correspondant à stri * 
* * 
ln MAP + [a chaîne transformée ; 


De ee ee ee ee ee AMOR M M A OO RER RE 


DD A OMC OH OH RAR AAA ONE OR OU OR OR OR OO OO ER RER 


CK3NOLASTWD CK&DISPATCH1T # 333 


ROT TOTEMPOB 


CODE 


ND A ee ee Me ee 0 re A RE 


* Après vérification de la présence de 3 niveaux de * 


* 
* 


* 


chaînes nous avons : 


* 
niveau 3 <- str2 e 
niveau à <- stri * 
niveau 1 <- strû recréée * 


* puis nous créons une chaîne vecteur strv de 256  * 
* caractères de valeurs 0 à 255 qui sera aussi une * 


* table de positionnement de caractères * 
Ce ee ve fee oh ere er oo er ol eee ee er re re ee ee er 


init 


badé 


gosbvl 
Le(5) 
gosbvl 


cd0ex 
ri=c 
d0=c 
c=0 


dat0O=c 
d0=d0+ 
c=c+1 
gonc 


gosbvL 
gosbvL 


c=c-1 
goc 
rstk=c 
cdiex 
rstk=c 
gosbvl 
di=d1+ 
gosbvl 
rstk=c 
cdlex 
rstk=c 
gosbvl 
di=d1+ 
gosbvL 
b=c 
c=rstk 
dO=c 
c=rstk 
a=c 
c=r1 
d=c 
?a=b 
goyes 
c=rstk 


=SAVPTR 
512 
=MAKESN 


b 
à 
b 
init 


=GETPTR 
=GetStrlenStk 


badüû 


=GETPTR 
5 
=GetStrLlenStk 


=GETPTR 

10 
=GetStrlenStk 
d 


ok 


* sauve Les pointeurs 


* longueur en quartets 


RO := adr,. strv créée 
DO à données de strv 


sauve adr. données strv 
à données strv 
pour initialiser strv 


boucle d'initialisation 
de strv avec caractères 
de valeurs 0 à 255 


* bour La future table 


* restitue Les pointeurs 


CA := Len str0 
D1 à données de str0 


refus si chaîne nulle 
sauve (len - 1) de strû 


sauve adr. données str0 
restitue les pointeurs 
ù niveau à : stré 

même principes strû 
sauve Len de stré 


sauve adr. données str2 
restitue Les pointeurs 
à niveau 3 : strl 

même principes str0 
sauve Len de stri 

à données strè 


Len de str2 


adresse table 
Len strd = Len str1 ? 


si non dépile et erreur 


badO 


ok 


tabl 


decr 


Loop 


* 


ENDCODE 
UNROT 
' 


= 
; 


c=rstk 
Lchex 
govling 
b=b-1 
goc 


c=0 
c=dat1 
C=C+c 
c=c+d 
cdlex 
a=dat0 
dat 1=a 
cdiex 
di=d1+ 
d0=d0+ 
b=b-1 
gonc 


c=rstk 
di=c 
c=rstk 
a=c 


c=0 
c=dat1 
C=c+c 
c=c+d 
d0=c 
c=dat0 


dat'=c 
di=d1+ 
a=a-1 
gonc 


goving 


eDROP 


00203 
=GPErr jmpC 
ä 

bad2 


D OX © ww 


è 
è 


tabl 


D OX © © 


b 
2 
a 
Loop 


=GETPTRLOOP 


 #Ù  #  * OO OÙ OÙ OÙ ©  Ù  #  #  *# Æ ON # # *# 


MO OÙ Ù * 


* 


pour bad argument value 
sortie avec ce message 


erreur si stri et stré 
de longueur nulle 
boucle de vectorisation 
valeur carac. n de str1 
transforme en offset 
adresse position j 

ad position j dans table 
caractère n de strà 
charge en position j 
restaure D1 

à caract. n + 1 de str1 
à caract. n + 1 de str2 
compteur car. str1 et str2 


a données str0 
(Len - 1) de str0 


boucle de traduction 
caractère n de str0 
transforme en offset 
adresse dans table 

à position j dans table 
caract. de remplacement 
ou non suivant caract. 
n de strû 

charge dans strÛ 

à caract. n + 1 de str0 
actualise compteur 


restaure pointeurs et 
retour au RPL 


drop sur stri et strà 


Voir la liste des codes dans Le coin des codes. 


Guy Toublanc (276) 
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LE NOUVEAU HP100 


Depuis peu de temps, une nouvelle version du HP100 
(équipée de 2 Mo de mémoire) est disponible. 
Comme toujours, lors de la sortie d’une nouvelle 
machine, de nombreux utilisateurs vont être 
confrontés au cruel dilème consistant à choisir quel 
modèle acquérir. Cet petit article a donc pour but de 
les aider dans leur choix. 


Tout d’abord, parlons un peu chiffres. La nouvelle 
version est mise sur le marché au prix de 7000 F. 
C’est a dire le prix de la version 1 Mo il y a encore 
peu de temps. Une bonne nouvelle est que l’ancien 
modèle a vu son prix décroitre de façon importante, 
puisqu'il ne coute plus que 5000 F. 


Pour les personnes ne possédant pas encore de 
HP100 (ni de HP95), cette différence de 2000F dans 
le prix des deux HP100 est assez importante a mon 
avis, pour se demander si il n’est pas plus intéressant 
de prendre une version à 1Mo, plus une carte Ram de 
2 Mo. En effet, même si on doit dépenser un peu plus 
(puisque ces cartes coutent encore près de 3000F), on 
aura alors une capacité totale de 3Mo, soit un gain de 
50% pour 1000F de plus (on peut noter d’ailleurs que 
le Méga-octet "HP" coute 2000F, alors qu’une carte 
ramenne le prix a 1500F/Mo, alors qu'il y a des 
composants en plus). De plus, 1l est toujours plus 
conseillé d’avoir le maximum de ses données sur 
cartes, car celles-ci sont moins sujettes aux pertes de 
données en cas de plantage complet de la machine. 


Si vous possédez déjà un HP95, avec une carte Ram 
(ou mieux, une Carte SunDisk), le doute n’est pas 
permis, la version 1 Mo suffit. 


Pour les personnes possédant déjà un HP100, je 
pense qu’il est plus intéressant, pour les raisons 
énoncées ci-dessus de reporter leur achat sur une 
carte SunDisk. 


Cependant, la nouvelle version est plus conseillée 
pour les personnes désirant utiliser des cartes Rom 
dont le contenu ne peut pas être copié dans une carte 
Ram (que ce soit a cause d’une taille trop importante 
du contenu ou une protection anti-copie). Il en est de 
même pour les cartes d’interfaces (telles que les 
Modem/Fax) qui demandent souvent beaucoup de 
mémoire vive (en Ram System et disque) pour 
fonctionner. Et qui ne peuvent évidement pas être 
retirées en cas d'utilisation. 


Jacques Belin (123) 
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UNE COMMANDE CACHEE 
DANS LE HP100 


Lors de mes premières investigations concernant le 
HP100, j'ai très vite décelé la présence d’un fichier 
caché dans le directory \81N du disque C:. Son nom : 
PUSHKEYS . COM. 


Hewlett-Packard n’ayant divulgué aucune information 
sur ce fichier (ce programme, en fait), je me suis livré 
à une rapide analyse de son code, ce qui m’apporta 
quelques informations dont voici les plus 
importantes : 


- Ce programme permet de placer des codes de 
touches dans le buffer du clavier, afin de simuler la 
pression de celles-ci et d'éviter ainsi des 
manipulations répétitives lorsque l’on entre dans 
certaines applications. (Pour cela, il n’y avait pas 
besoin de le désasssembler son nom était 
suffisement explicite !). 

- I] s’installe en Résident. 

- Il nécessite l'entrée d’un fichier contenant le code 
des touches à stocker dans le buffer. 


C'est ce dernier point qui m’apporta le plus de 
problème car l’analyse du code de traitement du 
fichier me montra rapidement que ce fichier avait une 
forme assez particulière, composée d’un en-tête 
contenant des offsets vers des données situées plus 
loin. 


En fait, n’ayant pas le temps de d’approfondir mes 
recherches sur le format exact de ce fichiers, je 
m'étais résigné à abandonner le sujet. D’autant plus 
que même si Je trouvais les informations recherchées, 
l'utilisation de la commande me paraissait trop lourde 
puisqu'elle me semblait nécessiter l’utilisation d’un 
éditeur binaire pour créer le fichier. Enfin, la dernière 
raison me faisant hésiter était le fait que la 
commande était non seulement non-documentée, 
mais aussi cachée. Etait-ce parce que c'était une 
commande abandonnée au dernier moment (suite à 
la découverte d’un bug ou une autre raison) et qu’il 
avait été plus simple pour les développeurs de la 
cacher (en armant un bit dans l'entrée du directory), 
plutôt que de lenlever de la Rom, ce qui aurait pu 
poser des problèmes de positionnement de données 
dans celle-ci ? 


Heureusement, il y a quelques jours, j'ai recu le 
journal du club étranger Prompt-HPGC. Dans 
celui-ci se trouvait un long article article de Raan 


Young, un développeur de HP Corvallis bien connu 
des utilisateurs de HP-75, et de ceux qui ont lu le 
compte-rendu de la démonstration de la liaison 
pager/mobidem parue dans le JPC d'octobre 1992. 
Ce nouvel article décrivait, entre autres, le 
fonctionnement de cette fameuse commande ! En 
fait, si il ne faisait pas officiellement partie de l’équipe 
de développement du HP100LX, ïl en était 
suffisement proche pour y faire inclure ce 
programme, qu’il a écrit en collaboration avec Dave 
Suvak. 


Heureusement que j'ai eu des problemes quant à 
l’utilisation de cette commande et que je n’ai pas pu 
en faire un article plus tôt commme je le voulais, car 
cela aurait fait un peu désordre qu’un utilisateur grille 
la politesse à l’auteur du programme ! 
Ceci dit, passons aux choses sérieuses : Comment 
utiliser ce programme ? 


Tout d’abord, pour répondre à une des interrogations 
de Raan Young, je confirme que le programme est 
bien présent dans la version Française du HP100 ! 


Ensuite, comme je l'avais bien déduit, il permet bien 
de remplir le buffer du clavier avec le contenu d’un 
fichier. Or, et c’est là que j'ai failli, il faut savoir que 
le HP100 permet de créer des fichiers de Macros 
(c’est à dire des séquences de pressions de touches 
que l’on activera plus tard en appuyant sur une touche 
assignée à cette effet) à partir du System Manager. Et 
ce sont ces mêmes fichiers qui peuvent être utlisés par 
PUSHKEYS. 


En fait, pour créer ce fichier, il est nécessaire 
d'utiliser, sur le HP100, lutilitaire Macro Systèmes 
prévu à cet effet dans le System Manager 
(normalement, c’est la dernière icône de la première 
ligne de l'écran proncipal, il est aussi accessible en 
pressant  [Ctrl][SUITE]). Cette fonction permet 
d’assigner dix macros aux touches [Fnt][F1i] à 
CFnt] [F10], soit en éditant la fiche de macro, soit en 
mode "apprentissage" (voir la documentation de la 
machine pour plus de détails). 


Comme sur le HP95, les macros sont stockées dans le 
fichier | DAT\SETUP.ENV. Cependant, il est possible 
sur le HP100 de les extraire pour les stocker dans un 
fichier séparé, qui pourra être bien sûr relu plus tard. 
Ceci permet d’avoir plusieurs séries d’assignations 
dans la machine, et de les changer suivant ses besoins, 
ce qui n’était pas possible sur le HP95, 


Les macros sont stockées dans un fichier à l’aide du 
menu Fichier/Sauver sous... Raan Young conseille 
d'utiliser l'extension .PSH. 


Une fois qu’un fichier de Macro est créé, nous 
pouvons entrer dans le vif du sujet. 


Syntaxe et Utilisation de PUSHKEYS 


Avant d'exécuter une Macro, il est tout d’abord 
nécessaire d'installer le programme en résident. Cela 
se fait en entrant l’ordre suivant : 


d:\bin\pushkeys /1 


Si tout va bien, le programme affichera le message 
Pushkeys Installed. 


L'option /0 permet de désinstaller le programme. 


Ensuite, nous pouvons charger le fichier de Macros, 
par l’ordre : 


D:\bin\pushkeys rom de fichier 


Ceci chargera tout d’abord le contenu du fichier en 
mémoire. Les données prises en compte seront 
uniquement les codes de touches, et non les étiquettes 
(commentaires) mises dans la fiche de defintion de la 
touche. Il est à noter aussi que si plusieurs macros ont 
été définies dans le même fichier, elles seront toutes 
chargées et exécutées l’une après l’autre. Il n’y a pas 
de moyen de sélectionner une macro spécifique. 


Ensuite, PUSHKEYS s’activera 18 fois par seconde et 
regardera si le buffer du clavier est vide. Si c’est le 
cas, il y placera une de celles qui est présente dans sa 
zone de mémoire. De son coté, si l’application en 
cours du HP100 demande une touche, il la retirera du 


buffer, permettant ainsi à PUSHKEYS d’en placer une 
autre. 


Il est à noter que le programme commence son 
traitement dès qu’il est chargé. Ceci veut dire que nous 
ne pourrons pas lancer PUSHKEYS, puis entrer ensuite à la 
main le programme destiné à bénéficier de ces macros. 
Pour contrer ce problème, il faudra donc créer un 
petit fichier batch, contenant deux lignes : le PUSHKEYS, 
immédiatement suivi du nom de l'application. Pour 
plus de détails, reportez vous aux exemples 
ci-dessous. 


Si vous désirez interrompre l’exécution de PUSHKEYS, il 
suffit de taper [ICTRLJIBREAK]. Ceci arrêtera 
définitivement l'exécution de la macro. 


Pendant que le programme est en train d’exécuter 
une macro, il est tout à fait possible à lutilisateur de 
taper sur le clavier. Ces données seront alors traitées 
immédiatement (c'est à dire entre les codes de 
touches mis dans le buffer par PUSHKEYS). 
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Afin de rendre cette possibilité plus pratique, une 
fonctionnalité a été ajoutée à PUSKEYS : Il est possible 
de spécifier un intervale de temps au cours duquel 
PUSHKEYS arrête d’alimenter le buffer du clavier, 
permettant ainsi de pouvoir entrer à loisir des 
données complémentaires. Cela se fait en insérant 
dans le texte de définition des macros des sequences 
des caractères ayant le format #ddd#, où ddd est un 
nombre d’unités de temps de 1/18e de secondes. Par 
exemple #60 arêtera l'exécution de la macro pendant 
un peu plus de 3 secondes. 


Hormis le fait qu’il permet à l'utilisateur d'entrer des 
données complémentaires, ce système de délai est 
utile dans d’autres cas. Par exemple, lorsqu'une 
macro doit provoquer la sortie du System Manager, 
avant de continuer le traitement il faut mettre un petit 
délai d’attente, car le System Manager vide alors le 
contenu du buffer du clavier. Si PUSHKEYS stocke des 
touches à ce moment là, elles seront 
irrémédiablement perdues. 


Il est aussi à noter que puisqu'il s’agit d’une 
possibilité propre à PUSHKEYS, il est fortement 
déconseilé d'utiliser des macros modifiées ainsi dans 
le gestionnaire de Macro du System Manager, car 
cela provoquerait des effets imprévisibles. 


Exemples de création de Macro 
Macro utilisable sous le System Manager 


Supposons que nous voulions créer une macro 
permettant, après une réinitialisation de la machine, 
d'accéder immédiatement à un fichier, nommé 
TOTO.TXT, que nous voulons éditer. 


Pour cela, nous devons créer la macro suivante 
(partant du moment où nous somme sur l'écran 
d'accueil, celui avec le Topcard Affiché) : 


{Suite} Accès à l'écran d'affichage des Icônes. 
{Mémo} Accès à l'éditeur 
{Menu} Affichage de la ligne de Menu. 
f Affichage du menu fichier 
0 Fiche d’ouverture de fichier 
toto.txt Entrée du nom de fichier 
{Entrée} Ouverture du fichier. 
Une fois que nous aurons entré les codes 


{Suite}{Mémo}{Menu}fototo.txt{Entrée}, sur la ligne 
prévue pour la touche tfnt]tF1], dans l’éditeur de 
Macro, et avoir vérifié que d’autre touches n’avaient 
pas été définies, sauvons cette macro sous le nom 
TOTO.PSH. 


Ensuite, vérifions que le fichier CONFIG.SYS contient 
bien la ligne SHELL=COMMAND.COM /P. 
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Enfin, créons un fichier AUTOEXEC.BAT tel que celui 
Gi: 


d:\bin\pushkeys /i 
d:\bin\pushkeys c:\ dat\toto.psh 
$sysmgr 


Une fois le fichier stocké, chaque fois que lon 
pressera  [Ctrl]l[Alt][Del], nous  accèderons 
directement au fichier TOTO.TXT, que l’on pourra 
éditer, avant de continuer notre travail. 


Macro Utilisable sous DOS 


Dans le même ordre d'idée, supposons que nous 
voulions garder une trace de la date et de l’heure des 
dernières réinitialisations (volontaires ou 
involontaires !) dans un fichier CRASH.TXT. 

suffire de lancer les 


Pour cela il semblerait 


instructions : 


date >>crash.txt 
time >>crash.txt 


Le problème est que ces deux commandes affichent 
des lignes telles que : 

Current time is 18:42:25 
Enter new time : 


et attendent la pression de la touche [Enter] pour 
continuer. 


Pour eviter cela, il y a deux solutions : 


- Créer un fichier "générique" de macro ne contenant 
que la ligne {Entrée}, et utilisable de comme ceci : 


d:\bin\pushkeys /i 
d:\bin\pushkeys c:\_dat\enter.psh 
date >>crash.txt 

d:\bin\pushkeys c:\ dat\enter.psh 
time >>crash.txt 
echo . >>crash.txt 
d:\bin\pushkeys /d 


(une petite séparation) 


- Ou mieux, créer une macro qui fait tout le 
traitement (les deux entrées servant respectivement à 
terminer l'entrée de la commande, puis à en sortir) : 


date >>crash.txt{Entrée}{Entrée} 
time >>crash.txt{Entrée}{Entrée} 


echo |. >>crash.txt{Entrée} 


et appelable comme ceci : 


d:\bin\pushkeys /1 
d:\bin\pushkeys c:\_ dat\crash.psh 
d:\bin\pushkeys /d 


Dans les deux cas, nous obtiendrons un fichier 
contenant ceci : 


Current time is Sun 27.01.1994 
Enter new date (dd-mm-yy): 
Current time is 18:42:25 

Enter new time: 

Current time is Sun 27.01.1994 
Enter new date (dd-mm-yy): 
Current time is 18:37:25 

Enter new time: 


Evidement, il y a de nombreuses lignes inutiles, mais 
le problème vient des commandes DATE et TIME, pas de 
PUSHKEYS. 


Utilisation de PUSKEYS sur le HP95 


Comme me l’a indiqué l'examen de son code, PUSKEYS 
ne fait appel qu’à des appels systèmes tout à fait 
standard. Ce qui fait que les possesseurs des deux 
machines peuvent tout à fait l’utiliser sur le HP95,. 
Malheureusement, cette machine ne permettant pas 
d'extraire des fichiers de Macros, il est nécessaire de 
les créer tout d’abord sur le HP100, puis les 
transférer sur HP95. Attention cependant aux points 
suivants : 


- Ne tentez pas d’effectuer des opérations impossibles 
sur le HP95. 

- Si vous créez les macros en mode "apprentissage", 
rappele vous que les menus du System Manager sont 
totalement différents sur les deux machines et que les 
macros ne stockent que les codes des touches 
pressées, et non leur effet. Par exemple, ce sont les 
manipulations des touches fléchées qui sont stockées, 
et non le fait que l’on pointe sur la fonction 
Sauvegarde de fichier. 

- Si vous accédez aux menus en appuyant sur les 
lettres clefs, faites attention qu'elle correspondent 
bien entre les deux machines, surtout si vous utilisez 
deux machines configurées avec une langue de travail 
différente. 


Jacques Belin (123) 


RADOTAGES 


Claude Shannon, un grand théoricien de 
l'Information, a postulé l’exsitence d’une loi de 
composition de la langue écrite, montrant que les 
mots ne sont composés que d’un nombre relativement 
limité de combinaisons de lettres, déterminant ainsi 
ses principales caractéristiques, dont sa sonorité. 


Nous allons, dans cette article, essayer de voir si cette 
loi peut être vérifiée, à l’aide d’un petit programme 
tournant sur HP95. 


Mais tout d’abord, définissons un petit algorithme 
permettant de manipuler un texte pour en tirer des 
mots de façon semi-aléatoire : 


0- Choisir le premier caractère d’un mot présent dans 
un [EXxTe. 

1- Noter le caractère pointé. 

2- Parcourir le texte "en anneau" (en reprenant au 
début quand on arrive à la fin du texte), jusqu’à ce 
qu’on arrive sur une nouvelle occurence du caractère 
que l’on vient de noter. 

3- Déplacer le pointeur d’un caractère vers la droite. 
4- Si ce nouveau caractère est "légal" (une lettre), 
reprendre à partir de l’étape numéro 1. 

5- Si ce caractère est un espace, un chiffre, une 
ponctuation ou tout autre caractère spécial, le "mot" 
que l’on vient de créer est terminé. On parcoure donc 
le texte jusqu'à ce qu’on pointe sur un nouveau 
caractère "légal", qui deviendra la première lettre d’un 
nouveau "mot". Puis nous reprenons l'exécution à 
partir de l'étape numéro 1. 


Une fois cet algorithme défini, choisissons un texte 
quelconque : par exemple, tout simplement, le 
premier paragraphe de cet article (de Claude 
Shannon à sonorité). 


Prenons maintenant un mot au hasard dans ce texte : 
par exemple, principales (avant dernière ligne). 


Maintenant, exécutons l'algorithme : 

- Notons la première lettre du mot : P. 

- Parcourons le texte, à partir de cette lettre, afin de 
retrouver la même. Nous n’avons pas à aller loin, 
puisque elle se trouve dans le même mot, entre le i et 
le a. 

- Décalons nous sur le caractère suivant. C’est une 
lettre, donc nous pouvons continuer le traitement. 

- Notons la : A. 

- Comme auparavant, parcourons le texte pour 
trouver une autre lettre a. Nous la trouvons en 
deuxième position du mot caractéristiques. 
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- Décalons nous sur le caractère suivant. C’est une 
lettre, donc nous pouvons continuer le traitement. 

- Notons la : KR. 

- Recherchons maintenant une autre lettre r, qui se 
trouve dans le même mot, entre le é et le s. 

- Décalons nous sur le caractère suivant. C’est une 
lettre, donc nous pouvons continuer le traitement. 

- Notons la : EL 

- Recherchons maintenant une autre lettre à, qui se 
trouve dans le même mot, entre le f et le q. 

- Décalons nous sur le caractère suivant. C’est une 
lettre, donc nous pouvons continuer le traitement. 

- Notons la : Q. 

- Les derniers mots du paragraphe ne contenant pas 
de qg, reprenons la recherche à partir du début du 
texte. Nous trouvons la lettre désirée dans le mot que 
suivant le mot montrant. 

- Décalons nous sur le caractère suivant. C’est une 
lettre, donc nous pouvons continuer le traitement. 

- Notons la : U. 

- La prochaine occurence de la lettre u se trouve dans 
la mot que suivant (entre composées et d’un. 

- Décalons nous sur le caractère suivant. C’est une 
lettre, donc nous pouvons continuer le traitement. 

- Notons la : E. 

- La lettre e suivante se trouve à la fin du mot r7ombre. 
- Décalons nous sur le caractère suivant. C’est un 
espace, donc le traitement est terminé. 


En mettant bout-à-bout toutes les lettres que nous 
vennons de trouver, nous obtenons le "mot" PARIQUE. 
Bien qu'il nous semble étranger au premier abord, 
puisqu'il ne fait pas partie de notre vocabulaire, 1l 
pourrait très bien s’agir d’un mot tout à fait "normal", 
En fait, 1l est très proche du mot Barrique, si lon 
admet une petite faute d'orthographe ! 


L’explication de cela est que lalgorithme a créé le 
"mot" en utilisant des couples de lettres existant déjà 
dans les mots du texte original (pa, ar, ri, iq, qu et ue). 
En fait, l’algorithme ne crée rien, il ne fait qu’utiliser 
des couples existant dans le texte. Et puisque le 
couple rp n’y est pas présent (même si on peut le 
trouver facilement dans la langue Française), nous ne 
trouverons pas de mots comprenant ce couple dans 
les "mots" que le programme pourra trouver. De 
même, aucun mot du texte ne commençant par la 
lettre v, nous ne trouverons pas de "mot" commençant 
par cette lettre. 


Un des effets intéressants de cette loi est que si nous 
prenons un texte de base écrit en Français et que 
nous obtenions des "mots" ayant une consonnance 
Française, le phénomêne devrait (je n’ai pas vérifié) 
être le même dans le cas d’autres langues, telles que 
l'Anglais ou en Allemand. Puisque nous parlons de 
langues, 1l faut aussi noter que nous sommes un peu 


LT 


désavantagés par rapport à l'Anglais à cause de la 
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présence des accents dans notre typographie. Il serait 
intéressant de voir si la loi que nous étudions 
aujourd’hui serait modifiée suivant le fait que nous 
laissions ou retirions ces accents sur les lettres. 


D'autre part, vous pouvez noter que l’exemple donné 
est un peu "pipé”, puisque parmi le mots du texte 
initial se trouve "Claude Shannon". Les noms propres 
ne possédant pas obligatoirement la même structure 
que les mots communs, il est probable que ce type de 
mots fausse un peu les résultats. De plus l’un de ces 
éléments, "Shannon", est un nom Anglais, qui possède 
un couple de lettres ("sh") plus commun dans la 
langue Anglaise que dans notre vocabulaire. 


Afin d'étudier plus en détail cet algorithme, j'ai écrit 
le petit programme Swift!Basic suivant : 


SET LEN 120 

* Création d'un tableau de 1000 Lignes 

* de 120 caractères maxi. 

DIM A$(1000) 

DEF STR B 

SET LEN 64 

DEF STR R 

DEF STR S 

* R$ = Chaine contenant Les caractères acceptés 
R$='"'abcdefghi jklmmoparstuvuxyzäaéèééiiü" 

* Demande nom du fichier et position de départ 
INPUT "Fichier a traiter : ":F$ 

INPUT "Octet de depart : ":Po 


P=Po * P = position pointeur sur ligne 
OPEN "in,1,F$ * Ouverture fichier 
1=1 * | = numéro de ligne 


* LECTURE FICHIER DANS BUFFER 
WHILE NOT EOF(1) 
INPUT #1:B$ 
IF B$<>"N THEN 
B$=LOWERS(B$) * Conversion chaîne en minuscules 
B$=B$+" 11 * ajoute un espace en fin de Ligne 
A$S(I)=B$ 
1=1+1 
ENDIF 
WEND 
N=I-1 
I=1 


* N = Nombre de lignes du tableau 


CLOSE 1 * fermeture fichier source 
SE=INN * On commence par une chaîne vide 
* ANALYSE 
REPEAT 
CS=MIDS(AS(I),P,1) * C$ = Caractère pointé 
IF INSTR(R$S,C$)<>0 THEN * si caractère "Légal" 
S$=SF+CE * on l'ajoute au "mot! 
REPEAT 
GOSUB Nextchar * et on passe au suivant 
UNTIL C$=MIDS(AS(I),P,1) * Jusquàä ce qu'on trouve 
* Le même 
GOSUB Nextchar * et on passe au suivant 


ELSE * SI CARACTERE NON LEGAL 
PRINT S$ * affichage "mot! trouvé 
S$=MN * réinitialisation du "mot! 
REPEAT 

GOSUB Nextchar * on passe Les autres 


* caractères non légaux 
UNTIL INSTR(RS,MIDSCAS(I),P,133<>0 
ENDIF 


* on s'arrete s1 on est revenu à La position initiale 


* ou si une touche est pressée 

UNTIL (I=1 AND P=Po) OR LENÇCINKEY$(0))}<>0 
PRINT !! Fin d'exécution! 

END 


* Routine d'incrémentation du pointeur 
»Nextchar 
P=P+1 
IF P>LENCAS(I)) THEN 
P=1 
I=1+1 
IF I>N THEN 
1=1 
ENDIF 
ENDIF 
RETURN 
END 


Si vous regardez bien ce listing, vous remarquerez 
que j'ai stocké le texte du fichier en mémoire, afin 
d'accélérer le traitement. Cependant, vous 
remarquerez aussi que J'ai stocké les différentes 
lignes dans un tableau de chaînes. Il aurait été plus 
intéressant de concaténer toutes ces chaines dans une 
seule, ce qui aurait simplifié le programme tout en 
l’accélérant, mais j'ai dû procéder ainsi car le 
Swift'Basic n'accepte que des chaines ne dépassant 
pas 256 caractères. 


Pour utiliser ce programme, il suffit d’entrer le nom 
du fichier contenant le texte à analyser, puis d’entrer 
un nombre correspondant à la position du caractère 
de départ (sur la première ligne du fichier 
uniquement, pour cette version du programme). 


Il est préférable de choisir un texte comportant peu 
de mots de moins de cinq lettres, car cela permettra 
d'éviter d’avoir trop de “mots' de deux ou trois 
caractères. En fait, un des autres effets intéressants 
de cet algorithme est aussi que, statistiquement, la 
distribution en nombre de lettres des "mots" trouvés 
est la même que pour le texte original... 


Il est aussi préférable de choisir un texte assez long, 
ce qui évitera de "boucler" trop rapidement et 
permettra de trouver un plus grand nombre de 
“mots”. 


Notez aussi que le fait qu’il n'y ait qu’une seule 
occurence d’une lettre dans le texte ne bloquera pas 
le programme, puisque si cette lettre est trouvée, le 
programme exécutera une boucle complete du texte 
pour revenir sur cette lettre, puis se déplacera sur le 
caractère suivant. 


Une fois le programme lancé, 1l nous suffira de voir 
sur l’écran les différents "mots" trouvés. 


Par exemple, si nous entrons dans un fichier le texte 
du premier paragraphe de cet article, puis choisirons 
comme départ la première lettre du mot théoricien. 
Soit le 26ème caractère (espaces et signes de 
ponctuation compris) de la première ligne. 


L’exécution du programme nous donnera les "mots" 
suivants : 


tisiontsombis 
dérice 

lant 
qunomincacl 
lostitrelittes 
ctithan 

d 

ue 

mon 

ntét 
alanonnpome 
CiS 

defoncos 
mpra 

shé 

lomot 

conai 

s 

parique 
rerpoile 
lainté 

Ci 

a 

le 

sé 

detrma 
pongrie 

lécos 

qud 


En examinant la liste, on peut tout de suite éliminer 
certaines choses telles que qgunomincacl, mpra ou 
detrma, ainsi que les "mots" de une ou deux lettres 
(bien que /e et mon soient tout à fait admissibles). 


D'autres "mots" semblent faire l’affaire au premier 


coup d'oeil, mais doivent être écartés parce qu'il 
manque une lettre. C’est le cas, par exemple, du "mot" 
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alanormpome, pour lequel il aurait peut être menqué 
un "o" entre le "m'" et le "p". 


Certains "mots" semblent bizarres, mais tout à fait 
possibles : reripoite, pongrie, ou iostitrelittes me faisant 
penser à un terme du milieu médical. 


Enfin, certains autres (dérice et parique, déjà cité) 
semblent tout à fait normaux, puisque nous avons 
dans notre vocabulaire des mots tels que dérive. Et 
lainté, qui ferait un excellent participe passé d’un 
hypothétique verbe "lainter”. 


Cependant, on peut aussi s’apercevoir que certains 
"mots", comportant des couples pourtant souvent 
utilisés sont souvent éliminés. Par exemple, le couple 
"qu" pose souvent un problème, car il est 
normalement toujours suivi d’une voyelle. Or, les 
couples composé de la lettre "u" suivie d’une autre 
voyelle ne sont pas si fréquent que cela, et la plupart 
de ceux qui existent sont justement ceux précédés de 


la lettre "q"… 


En tous cas, la plupart des "mots" trouvés (hormis 
defoncos, peut-être) ont tout à fait des consonnances 
tirées de la langue langue Française. Ce qui 
prouverait que Shannon avait vu juste... 


Si cet exemple, a été relativement fécond en "mots" 
intéressants, 1l faut reconnaitre aussi que certains 
autres apportent beuacoup plus de déchets. Voire ne 
rapportent rien d’intéressant. Cependant, un simple 
programme tirant des lettres au hasard n’a aucune 
chance de trouver autant de "mots" que notre 
programme (Si fous Les chimpanzés du monde 
tapaient à la machine..). En fait, c’est probablement 
un programme de ce type qui a dû être utilisé par 
Renault pour trouver des noms tels que Safrane ou 
autres Xantia. 


Mon programme, tel que je lai écrit, est plus une 
démonstration de l'algorithme qu’un programme 
complet. Il présente donc certains défauts, et peut 
sans problème être amélioré en ajoutant les 
traitements et contrôles suivants : 


- Possibilité de partir à partir de n’importe mot du 
fichier source. Et non seulement ceux de la première 
ligne comme cela se fait actuellement. 

- Contrôle du départ sur la première lettre d’un mot. 
En effet, si nous voulons respecter totalement l’esprit 
de la loi de composition des mots, le faudrait pas que 
le premier "mot" trouvé commence par une lettre 
choisie aléatoirement, qui peut être une de celles 
rarement utilisées dans notre langue. 

- Stockage de la liste des "mots" trouvés dans un 
fichier. 
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- Non-stockage dans ce fichier des "mots" de moins de 
quatre caractères. 

- Contrôle dans la liste des "mots" déjà trouvés, de 
façon à ce que le programme s'arrête dès qu’il boucle. 
- Dès qu'il commence à boucler, reprise du traitement 
avec une autre valeur de départ. Ceci afin de trouver 
la liste exhaustive des "mots" existants. 


N'ayant pas pour projet actuel de continuer à 
travailler sur ce sujet, j'espère que certains d’entre 
vous seront suffisament intéressés pour continuer ce 
travail là où Je l’ai laissé et nous en faire profiter. 


D'autre part, qui sera capable de trouver l'algorithme 
du programme inverse, reconstituant le paragraphe 
initial en partant de la liste des "mots" trouvés ? 


Note finale : L'idée de cet article (et son titre, car le 
programme à une certaine propension à boucler en 
répétant la même chose !) m'est venue en lisant 
l'excellent (et souvent iconoclaste) La Théorie du 
Bordel  Ambiant, écrit par Roland Moreno 
(Pinventeur de la carte a puce). Bien que ce livre ne 
soit pas un traité d'informatique et d'électronique 
(c’est plutôt une auto-biographie, où il expose ses 
méthodes de pensées pouvant aboutir à la Création), 
il explique 1ci ses propres analyses concernant le sujet 
qui nous préocupe aujourd’hui. Par exemple, il a 
remarqué qu'en ne constituant son fichier source 
qu'avec des noms de fleurs, on obtient des "mots" 
ressemblant étrangement à ces choses. Si vous 
voulez aller plus loin dans ce sujet, une lecture 
s'impose. Il est disponible en "Livre de Poche". Enfin, 
pour la petite histoire, on peut aussi apprendre dans 
ce livre que Roland Moreno a appris à programmer 
sur une HP55... 
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LE COIN DES CODES 


La compilation de certains programmes, tels ceux 
écrits en assembleur, nécessitent souvent un logiciel 
que ne possèdent pas tous nos lecteurs. Le Coin des 
Codes permet de résoudre ce problème. 


Note importante : 


Même si la présentation des listings est identique, le 
traitement de ceux-ci est différente suivant le 
programme d’entrée et la machine de destination. 
Chaque listing est prévu pour être entré sur sa 
machine de destination. Par exemple, ne tentez pas 
d'entrer un programme HP48 dans un fichier 
MS-DOS à laide du programme MAkEDOSs. Vous 
obtiendrez un fichier que vous ne pourrez pas 
transférer dans la HP48. 


Programmes HP48 


Par rapport aux méthodes habituelles sur HP48, notre 
méthode effectuant un calcul local du checksum en 
fin de chaque ligne permet de faciliter la recherche 
d'erreurs, par rapport à une même recherche dans 
une chaîne de plusieurs centaines d’octets. 


Par mesure de sécurité sauvegardez vos programmes 
et fichiers, éventuellement verrouillez vos cartes. 


Tapez les deux programmes ASSCOD48 et INPUT48 
avec la plus grande attention car leur mauvais 
fonctionnement peut entraîner un désordre fatal pour 
les objets contenus dans votre machine. Newline (-) 
s'obtient sur HP-48 par [flèche bleue] puis [.1. 


ASSCOD48 

996.5 octets  cksum # SD1Bh 

a RCLF HEX 64 STWS 1 SF M ftmpcod' STO 

nombre d'octets (@ + NEWLINE 
@ NEWLINE 

1 17 INPUT48 1 CF STR+ 2 * 16 

DUP2 / IP 3 ROLLD MOD OUP2 Q > + 

3 ROLLD 1 + 4 ROLL # Oh DUP + nr f s o « 1 SWAP 


FOR 1 

DO "ligne " 1 1 - R-B # 1000h + -STR 4 6 SUB + DUP 
* @ NEWLINE 
chaîne @ + NEWLINE 
UM + Mosmm sam sus ss. il n 1 < 


IF THEN r OUP 4 / IP + SWAP OVER 1 SWAP OVER - 
SUB SWAP 18 + 

ELSE 38 END ‘o' STO + 

L ( NEWLINE 

W+ 1 ES7C 

IF THEN ROT SWAP CLLCD 1 DISP HALT 


ELSE o INPUT48 END DUP 
WHILE DUP " POS DUP 
REPEAT OUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 25 SUB 
IF DUP "== THEN DROP ELSE + END 
END DROP 0 OVER SIZE 1 SWAP 
FOR j OVER j DUP SUB NUM j * + NEXT 
s + DUP # FFFh AND 
! @ NEWLINE 
somme de controle (@ + NEWLINE 
sue (© + NEWLINE 
#"" 6 ROLL SHWAP + 34 INPUT48 STR-+ == 
IF THEN SWAP DROP 1 
ELSE DROP2 1000 1 BEEP 1 SF 0 END 
UNTIL END 's' STO 
WHILE DUP #“ " POS DUP 
REPEAT DUP2 1 SWAP 1 - SUB 3 ROLLD 1 + 19 SUB + 
END DROP ‘tmpcod' DUP RCL ROT + SWAP STO 
NEXT f STOF » tmpcod 
UGROB 8 " OVER SIZE 2 / MW + + SUAP (@@ ou ASC+ 
+ STR+ # 4017h SYSEVAL # 56Béh @@ (JPC-79 
SYSEVAL DROP NEWOB @@ page 11) 
“fin" CLLCD 1 DISP 


x 


INPUT48 
412.5 octets cksum # 15C7h 
« SWAP 1 
WHILE OVER CLLCD 1 DISP 
REPEAT 
DO UNTIL KEY END 
IF DUP 51 == THEN DROP O0 
ELSE IF DUP 55 == THEN DROP 1 OVER SIZE 1 - SUB 
ELSE 
CASE DUP 17 < THEN 54 + END DUP 66 < THEN 7 - END 
DUP 76 < THEN 20 - END DUP 86 < THEN 33 - END 
92 == THEN 48 END 46 END CHR + DUP SIZE 3 PICK 
- 2 + 5 MOD NOT 1 FC? AND IF THEN " " + END 
END 1 END END SWAP 60 SUB » 


Donc à partir de maintenant pour tout assemblage de 
chaîne de codes procédez de manière suivante: 


1- lancez le programme ASSCOD48 

2- donnez le nombre d’octets (1/2 octet compris) puis 
validez avec ENTER. 

3- tapez chaque ligne de codes, correspondant au 
numéro de ligne à 3 chiffres, sans les espaces et 
validez. 

4- tapez la somme de contrôle et validez. S'il y a 
erreur la ligne de codes sera demandée à nouveau 
après émission d’un 8EEP, L’appui sur EDIT fera 
apparaître la ligne des codes qui pourra être corrigée. 
Alors relancez avec CONT. 

5- stockez le programme assemblé dans la variable 
donnée en tête. 

6- si tout s’est bien déroulé vous pouvez purger tmpcod 
qui contient la chaîne de codes. 
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MAP 


# 33FAh 


000: 
001: 
002: 
003: 
OO : 
005: 
006: 
007: 
008: 
009: 
OOA : 
008: 
OOC: 
OOD : 
OQE : 


0123 


D9Da 
1920 
2307 
008F 
GFD7 
AE21 
F2D7 
8406 
1748 
68F2 
F2D5 
D/8A 
008D 
14FA 


(HP48) 


148.5 octets 


4561 89AB CDEF 


086A 
3330 
5660 
8976 
8501 
4c16 
608F 
1370 
F4BF 
D760 
0713 
0410 
04FO 
36CB 


9137 1711 
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812B 
OD9D 
CCD 
0340 
3610 
1B66 
4BFF 
68F2 
F206 
1798 
407D 
073 
1CD& 
1371 
61CD 


F811 
2059 
ODEC 
0200 
9134 
56F8 
èCE4 
D760 
1370 
F4BF 
A119 
302 
BED 
4A14 
21E0 


sm 


DB9 
A98 
953 
&9A 
078 
EAÛ 
FO09 
C53 
984 
8F2 
610 
15B 
124 
E6C 
BE5 


7135 
CB13 
57E8 
2130 


OF: 
010: 
011: 
012: 


+-PC48-+ 
# AC95h 


0123 


D9D2 
0040 
0C0OB 
EEE4 
D100 
B8B8C 
2052 
2030 


060: 
0071: 
002: 
003: 
008 : 
005: 
006: 
007: 


008: 3A30 


O7DA 
414€ 
D341 
B213 


567 


0D29 
D9D2 
E2EA 
F9FB 
0983 


D214 FA36 
1401 71CC 
50A2 116B 
0 


A65 
808 
DF9 
EFB 


(HP48) 


213.5 octets 


89AB CDEF 


5128 
OC2A 
E9EQ 
F7EC 
6884 


F81D 
2001 
E8EF 
2A20 
858A 


8397 9697 8C2A 


000D 
202D 
213F 


8053 
8840 
D550 


&4A30 
5438 
AC42 





sm 


EBA 
C72 
DE& 
DBD 
B17 
BC 
SE7 
214 
FFF 


009: 


00B : 
0OC: 
00D : 
ODE : 
OOF : 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
0TA: 


2BrF 


: 5923 


EOOG 
008F 
34AE 
F8F2 
E4Bé 
6017 
7068 
BFF2 
1907 
0200 
D214 
1491 
EO71 
36CB 
CCS 7 
6B21 


C199 7A2B 
0756 60CC 
G6FB9 7603 
D785 0136 
214C 1618 
D760 8F4B 
0613 7068 
48F4 BFF2 
F2D7 6017 
D507 1340 
8A04 1070 
8D04 FO1C 
FA36 CB13 
3717 1161 
3507 DAD2 
1341 4E14 
E8D3 4150 
30B2 130 


1F26 
D20D 
4002 
1091 
6656 
FF2C 
F2D7 
0613 
98F4 
PDA 
7343 
DéBE 
f14A 
CD51 
14FA 
D171 
A211 


E8C 
CFD 
8F7 
532 
2FD 
2ED 
OCA 
E88 
C83 
AA 
SFA 
58D 
394 
OFF 
F83 
C8A 
928 
680 
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